fix quiet in append_expected_values

isoverse · May 3, 2024 · 4384722 · 4384722
1 parent ba835cc
commit 4384722
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 1 deletion.
diff --git a/R/append_expected_values.R b/R/append_expected_values.R
@@ -48,6 +48,10 @@ append_expected_values <- function(.data,
     std_values <- std_values[!is.na(std_values)]
   }
 
+  if (is.null(quiet)) {
+    quiet <- default(quiet)
+  }
+
   if (!quiet)
     glue("Info: Appending expected values as {quo_name(enquo(exp))} for standards {glue::glue_collapse(unique(std_names), sep = ' ', last = ' and ', width = 30)}") %>%
       message()

diff --git a/man/append_expected_values.Rd b/man/append_expected_values.Rd