Closes #2519 fix_param_tte: add test (#2530)

* #2519 fix_param_tte: add test * #2519 fix_param_tte: style file
pharmaverse · Nov 7, 2024 · 6216cb5 · 6216cb5
1 parent 049f08f
commit 6216cb5
Show file tree

Hide file tree

Showing 3 changed files with 67 additions and 5 deletions.
diff --git a/NEWS.md b/NEWS.md
@@ -12,6 +12,10 @@
 
 ## Updates of Existing Functions
 
+- `derive_param_tte()` now provides a useful error message if in
+`event_conditions` or `censor_conditions` a dataset is referenced which is not
+specified in `source_datasets`. (#2519)
+
 - The `derive_param_qtc()` function accepts now both `"ms"` and `"msec"` as unit
 of the input parameters. (#2513)
 

diff --git a/tests/testthat/_snaps/derive_param_tte.md b/tests/testthat/_snaps/derive_param_tte.md
@@ -49,7 +49,19 @@
       See error message below:
       i In argument: `PARAM = past("Time to First", AEDECOD, "Adverse Event")`. Caused by error in `past()`: ! could not find function "past"
 
-# list_tte_source_objects Test 13: error is issued if package does not exist
+# derive_param_tte Test 13: error if dataset_name not in source_datsets
+
+    Code
+      derive_param_tte(dataset_adsl = adsl, start_date = TRTSDT, event_conditions = list(
+        death), censor_conditions = list(lstalv), source_datasets = list(adsl = adsl),
+      set_values_to = exprs(PARAMCD = "OS", PARAM = "Overall Survival"))
+    Condition
+      Error in `derive_param_tte()`:
+      ! The dataset names must be included in the list specified for the `source_datasets` argument.
+      i Following names were provided by `source_datasets`: "adsl"
+      i But, `censor_conditions[[1]]$dataset_name = adls`
+
+# list_tte_source_objects Test 14: error is issued if package does not exist
 
     Code
       list_tte_source_objects(package = "tte")

diff --git a/tests/testthat/test-derive_param_tte.R b/tests/testthat/test-derive_param_tte.R
@@ -885,18 +885,64 @@ test_that("derive_param_tte Test 12: test dataset and dynamic byvars populated",
   )
 })
 
+## Test 13: error if dataset_name not in source_datsets ----
+test_that("derive_param_tte Test 13: error if dataset_name not in source_datsets", {
+  adsl <- tibble::tribble(
+    ~USUBJID, ~DTHFL, ~DTHDT,            ~LSTALVDT,         ~TRTSDT,           ~TRTSDTF,
+    "03",     "Y",    ymd("2021-08-21"), ymd("2021-08-21"), ymd("2021-08-10"), NA,
+    "04",     "N",    NA,                ymd("2021-05-24"), ymd("2021-02-03"), NA
+  ) %>%
+    mutate(STUDYID = "AB42")
+
+  death <- event_source(
+    dataset_name = "adsl",
+    filter = DTHFL == "Y",
+    date = DTHDT,
+    set_values_to = exprs(
+      EVENTDESC = "DEATH",
+      SRCDOM = "ADSL",
+      SRCVAR = "DTHDT"
+    )
+  )
+
+  lstalv <- censor_source(
+    dataset_name = "adls",
+    date = LSTALVDT,
+    censor = 1,
+    set_values_to = exprs(
+      EVENTDESC = "LAST KNOWN ALIVE DATE",
+      SRCDOM = "ADSL",
+      SRCVAR = "LSTALVDT"
+    )
+  )
+
+  expect_snapshot(
+    derive_param_tte(
+      dataset_adsl = adsl,
+      start_date = TRTSDT,
+      event_conditions = list(death),
+      censor_conditions = list(lstalv),
+      source_datasets = list(adsl = adsl),
+      set_values_to = exprs(
+        PARAMCD = "OS",
+        PARAM = "Overall Survival"
+      )
+    ),
+    error = TRUE
+  )
+})
 
 # list_tte_source_objects ----
-## Test 13: error is issued if package does not exist ----
-test_that("list_tte_source_objects Test 13: error is issued if package does not exist", {
+## Test 14: error is issued if package does not exist ----
+test_that("list_tte_source_objects Test 14: error is issued if package does not exist", {
   expect_snapshot(
     list_tte_source_objects(package = "tte"),
     error = TRUE
   )
 })
 
-## Test 14: expected objects produced ----
-test_that("list_tte_source_objects Test 14: expected objects produced", {
+## Test 15: expected objects produced ----
+test_that("list_tte_source_objects Test 15: expected objects produced", {
   expected_output <- tibble::tribble(
     ~object,            ~dataset_name,                                              ~filter,
     "ae_ser_event",            "adae",                 quote(TRTEMFL == "Y" & AESER == "Y"),