From 89a673e95f34552d7195a3a4d6b88e7d70ed4620 Mon Sep 17 00:00:00 2001
From: Zelos Zhu <zelos.zhu@atorusresearch.com>
Date: Mon, 6 Nov 2023 19:02:02 +0000
Subject: [PATCH] chore: #2142 adopt and address all other feedback

---
 R/derive_param_exposure.R     | 2 +-
 R/derive_summary_records.R    | 2 +-
 inst/templates/ad_adex.R      | 2 +-
 man/derive_param_exposure.Rd  | 2 +-
 man/derive_summary_records.Rd | 2 +-
 5 files changed, 5 insertions(+), 5 deletions(-)

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,