tests/testthat/_snaps/derive_param_tte.md

In Roche-GSK/admiral: ADaM in R Asset Library

derive_param_tte Test 6: an error is issued if some of the by variables are missing

Code
  derive_param_tte(dataset_adsl = adsl, by_vars = exprs(AEBODSYS, AEDECOD),
  start_date = TRTSDT, event_conditions = list(ttae), censor_conditions = list(
    eos), source_datasets = list(adsl = adsl, ae = ae), set_values_to = exprs(
    PARAMCD = paste0("TTAE", as.numeric(as.factor(AEDECOD))), PARAM = paste(
      "Time to First", AEDECOD, "Adverse Event"), PARCAT1 = "TTAE", PARCAT2 = AEDECOD))
Condition
  Error in `extend_source_datasets()`:
  ! The source dataset must include all or none of the by variables.
  i Only `AEDECOD` is included in source dataset `ae`.

derive_param_tte Test 7: errors if all by vars are missing in all source datasets

Code
  derive_param_tte(dataset_adsl = adsl, by_vars = exprs(AEBODSYS), start_date = TRTSDT,
  event_conditions = list(ttae), censor_conditions = list(eos), source_datasets = list(
    adsl = adsl, ae = ae), set_values_to = exprs(PARAMCD = paste0("TTAE",
    as.numeric(as.factor(AEDECOD))), PARAM = paste("Time to First", AEDECOD,
    "Adverse Event"), PARCAT1 = "TTAE", PARCAT2 = AEDECOD))
Condition
  Error in `extend_source_datasets()`:
  ! The by variable `AEBODSYS` is not contained in any of the source datasets.

derive_param_tte Test 8: errors if PARAMCD and by_vars are not one to one

Code
  derive_param_tte(dataset_adsl = adsl, by_vars = exprs(AEDECOD), start_date = TRTSDT,
  event_conditions = list(ttae), censor_conditions = list(eos), source_datasets = list(
    adsl = adsl, ae = ae), set_values_to = exprs(PARAMCD = "TTAE", PARCAT2 = AEDECOD))
Condition
  Error in `derive_param_tte()`:
  ! For some values of "PARAMCD" there is more than one value of "AEDECOD"
  i Call `admiral::get_one_to_many_dataset()` to get all one-to-many values.

derive_param_tte Test 9: errors if set_values_to contains invalid expressions

Code
  derive_param_tte(dataset_adsl = adsl, by_vars = exprs(AEDECOD), start_date = TRTSDT,
  event_conditions = list(ttae), censor_conditions = list(eos), source_datasets = list(
    adsl = adsl, ae = ae), set_values_to = exprs(PARAMCD = paste0("TTAE",
    as.numeric(as.factor(AEDECOD))), PARAM = past("Time to First", AEDECOD,
    "Adverse Event"), PARCAT1 = "TTAE", PARCAT2 = AEDECOD))
Condition
  Error in `process_set_values_to()`:
  ! Assigning variables failed!
  * `set_values_to = exprs(PARAMCD = paste0("TTAE", as.numeric(as.factor(AEDECOD))), PARAM = past("Time to First", AEDECOD, "Adverse Event"), PARCAT1 = TTAE, PARCAT2 = AEDECOD)`
  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"

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`

derive_param_tte Test 14: detects duplicates in input datasets via pipeline functions

Code
  derive_param_tte(dataset_adsl = adsl, start_date = TRTSDT, event_conditions = list(
    ttae), censor_conditions = list(eot), source_datasets = list(adsl = adsl, ae = ae),
  set_values_to = exprs(PARAMCD = "TTAE"), check_type = "warning")
Condition
  Warning:
  Dataset "ae" contains duplicate records with respect to `STUDYID`, `USUBJID`, and `AESTDT`
  i Run `admiral::get_duplicates_dataset()` to access the duplicate records
Output
  # A tibble: 2 x 10
    USUBJID STUDYID EVENTDESC  SRCDOM SRCVAR  SRCSEQ  CNSR ADT        STARTDT   
    <chr>   <chr>   <chr>      <chr>  <chr>    <dbl> <int> <date>     <date>    
  1 01      AB42    AE         AE     AESTDTC      1     0 2021-01-03 2020-12-06
  2 02      AB42    END OF TRT ADSL   TRTEDT      NA     1 2021-01-30 2021-01-16
  # i 1 more variable: PARAMCD <chr>

list_tte_source_objects Test 17: error is issued if package does not exist

Code
  list_tte_source_objects(package = "tte")
Condition
  Error in `list_tte_source_objects()`:
  ! No package called tte is installed and hence no <tte_source> objects are available.

Roche-GSK/admiral documentation built on April 14, 2025, 12:36 p.m.