From 43847221640a9e2f8eea41a80a888b83118ce39b Mon Sep 17 00:00:00 2001
From: Ilja Kocken <i.j.kocken@uu.nl>
Date: Fri, 3 May 2024 10:07:02 -1000
Subject: [PATCH] fix quiet in append_expected_values

---
 R/append_expected_values.R    | 4 ++++
 man/append_expected_values.Rd | 2 +-
 2 files changed, 5 insertions(+), 1 deletion(-)

diff --git a/R/append_expected_values.R b/R/append_expected_values.R
index 60dacf0..c681bd5 100644
--- 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
index 9641948..d288735 100644
--- a/man/append_expected_values.Rd
+++ b/man/append_expected_values.Rd
@@ -11,7 +11,7 @@ append_expected_values(
   std_values = c(0.258, 0.256, 0.691) - 0.062,
   exp = expected_D47,
   by = `Identifier 1`,
-  quiet = default(quiet)
+  quiet = NULL
 )
 }
 \arguments{