handle NULL arguments

insightsengineering · Dec 4, 2023 · 047a9db · 047a9db
1 parent 7b86c69
commit 047a9db
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/R/chevron_tlg-S4methods.R b/R/chevron_tlg-S4methods.R
@@ -34,7 +34,7 @@ setMethod(
     assert_flag(verbose)
     assert_list(user_args, names = "unique")
 
-    user_args <- modifyList(user_args, list(...))
+    user_args <- modifyList(user_args, list(...), keep.null = TRUE)
 
     if (verbose) {
       cl <- match.call()

diff --git a/tests/testthat/test-chevron_tlg-methods.R b/tests/testthat/test-chevron_tlg-methods.R
@@ -51,7 +51,7 @@ test_that("run works as expected with partial match argument", {
 
 test_that("run displays the symbols when available", {
   user_args <- list(prune_0 = TRUE, not_used = iris, lbl_overall = "All Patients", row_split_var = "AEHLT")
-  arm_param = "ARM"
+  arm_param <- "ARM"
   res <- capture_output(
     tbl <- run(
       aet02,