From 22693c8d41166215cd1c5163e72e1106751d6056 Mon Sep 17 00:00:00 2001
From: "Wang, Benjamin" <benjamin.wang@merck.com>
Date: Wed, 12 Jun 2024 15:38:50 -0400
Subject: [PATCH] update test case

---
 NAMESPACE                                                   | 1 +
 R/meta_sl_example.R                                         | 2 +-
 man/format_ae_specific_subgroup.Rd                          | 2 +-
 tests/testthat/test-independent-testing-format_base_char.R  | 1 -
 tests/testthat/test-independent-testing-prepare_base_char.R | 1 -
 5 files changed, 3 insertions(+), 4 deletions(-)

diff --git a/NAMESPACE b/NAMESPACE
index 221744d..1f75b7e 100644
--- a/NAMESPACE
+++ b/NAMESPACE
@@ -5,6 +5,7 @@ export(defmt_pct)
 export(format_base_char)
 export(format_disposition)
 export(format_trt_compliance)
+export(meta_sl)
 export(meta_sl_example)
 export(prepare_base_char)
 export(prepare_disposition)
diff --git a/R/meta_sl_example.R b/R/meta_sl_example.R
index 1587873..12c9904 100644
--- a/R/meta_sl_example.R
+++ b/R/meta_sl_example.R
@@ -52,7 +52,7 @@ meta_sl_example <- function() {
       analysis = "trt_compliance", population = "apat",
       observation = "apat", parameter = "comp8;comp16;comp24"
     ) |>
-    add_plan(
+    metalite::add_plan(
       analysis = "disp", population = "apat",
       observation = "apat", parameter = "disposition;medical-disposition"    
     )
diff --git a/man/format_ae_specific_subgroup.Rd b/man/format_ae_specific_subgroup.Rd
index e26d007..1061892 100644
--- a/man/format_ae_specific_subgroup.Rd
+++ b/man/format_ae_specific_subgroup.Rd
@@ -16,7 +16,7 @@ format_ae_specific_subgroup(
 )
 }
 \arguments{
-\item{outdata}{A \code{outdata} object created by \code{\link[metalite.ae:prepare_ae_specific]{prepare_ae_specific()}}.}
+\item{outdata}{An \code{outdata} object created by \code{\link[metalite.ae:prepare_ae_specific]{prepare_ae_specific()}}.}
 
 \item{display}{A character vector of measurement to be displayed.
 \itemize{
diff --git a/tests/testthat/test-independent-testing-format_base_char.R b/tests/testthat/test-independent-testing-format_base_char.R
index cd0d16c..7b36207 100644
--- a/tests/testthat/test-independent-testing-format_base_char.R
+++ b/tests/testthat/test-independent-testing-format_base_char.R
@@ -63,7 +63,6 @@ test_meta_base_char <- meta_adam(
   ) |>
   prepare_sl_summary(
     population = "apat",
-    observation = "apat",
     analysis = "base_char",
     parameter = "age;agen;gender;race"
   )
diff --git a/tests/testthat/test-independent-testing-prepare_base_char.R b/tests/testthat/test-independent-testing-prepare_base_char.R
index 81b8c6d..c553e58 100644
--- a/tests/testthat/test-independent-testing-prepare_base_char.R
+++ b/tests/testthat/test-independent-testing-prepare_base_char.R
@@ -68,7 +68,6 @@ meta_test <- meta_adam(
 test_meta_base_char <- prepare_sl_summary(
   meta_test,
   population = "apat",
-  observation = "apat",
   analysis = "base_char",
   parameter = "age;agen;gender;race"
 )