diff --git a/R/derive_param_exposure.R b/R/derive_param_exposure.R index 5403ef7a31..3bf1d05be3 100644 --- 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 index 4aa6410c6c..83ac05daea 100644 --- 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 index fca0ace57e..a9b84b6e5b 100644 --- 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 index ce04b182d9..88092ca61f 100644 --- a/man/derive_param_exposure.Rd +++ b/man/derive_param_exposure.Rd @@ -5,7 +5,7 @@ \title{Add an Aggregated Parameter and Derive the Associated Start and End Dates} \usage{ derive_param_exposure( - dataset, + dataset = NULL, dataset_add, by_vars, input_code, diff --git a/man/derive_summary_records.Rd b/man/derive_summary_records.Rd index 66a3ae2fa5..588f2d5599 100644 --- a/man/derive_summary_records.Rd +++ b/man/derive_summary_records.Rd @@ -5,7 +5,7 @@ \title{Add New Records Within By Groups Using Aggregation Functions} \usage{ derive_summary_records( - dataset, + dataset = NULL, dataset_add, dataset_ref = NULL, by_vars,