chore: #2142 adopt and address all other feedback

pharmaverse · Nov 6, 2023 · 89a673e · 89a673e
1 parent 5c3748a
commit 89a673e
Show file tree

Hide file tree

Showing 5 changed files with 5 additions and 5 deletions.
diff --git a/R/derive_param_exposure.R b/R/derive_param_exposure.R
@@ -155,7 +155,7 @@
 #'     summary_fun = function(x) if_else(sum(!is.na(x)) > 0, "Y", NA_character_)
 #'   ) %>%
 #'   select(-ASTDTM, -AENDTM)
-derive_param_exposure <- function(dataset,
+derive_param_exposure <- function(dataset = NULL,
                                   dataset_add,
                                   by_vars,
                                   input_code,

diff --git a/R/derive_summary_records.R b/R/derive_summary_records.R
@@ -183,7 +183,7 @@
 #'   )
 #' ) %>%
 #'   arrange(USUBJID, AVISIT)
-derive_summary_records <- function(dataset,
+derive_summary_records <- function(dataset = NULL,
                                    dataset_add,
                                    dataset_ref = NULL,
                                    by_vars,

diff --git a/inst/templates/ad_adex.R b/inst/templates/ad_adex.R
@@ -187,7 +187,7 @@ adex <- adex %>%
       )
     ),
     dataset_add = adex,
-    filter = VISIT %in% c("WEEK 2", "WEEK 24"),
+    filter_add = VISIT %in% c("WEEK 2", "WEEK 24"),
     by_vars = exprs(STUDYID, USUBJID, !!!adsl_vars)
   ) %>%
   # Overall Dose intensity and W2-24 dose intensity

diff --git a/man/derive_param_exposure.Rd b/man/derive_param_exposure.Rd
diff --git a/man/derive_summary_records.Rd b/man/derive_summary_records.Rd