tests/testthat/_snaps/derive_merged.md

In admiral: ADaM in R Asset Library

derive_vars_merged Test 5: error if variable in both datasets

Code
  derive_vars_merged(advs, dataset_add = adsl, by_vars = exprs(USUBJID))
Condition
  Error in `derive_vars_merged()`:
  ! The variable `STUDYID` is contained in both datasets.
  i Please add them to `by_vars` or remove or rename them in one of the datasets.

derive_vars_merged Test 11: error if not unique w.r.t the by variables and the order

Code
  actual <- derive_vars_merged(advs, dataset_add = adsl2, by_vars = exprs(STUDYID,
    USUBJID = ID), order = exprs(ID), mode = "last", check_type = "error",
  duplicate_msg = "Duplicate records present!")
Condition
  Error in `signal_duplicate_records()`:
  ! Dataset contains duplicate records with respect to `STUDYID`, `ID`, and `ID`
  i Run `admiral::get_duplicates_dataset()` to access the duplicate records

derive_vars_merged Test 12: error if variables in missing_values but not in new_vars

Code
  derive_vars_merged(adsl, dataset_add = advs, by_vars = exprs(USUBJID), order = exprs(
    AVISIT), new_vars = exprs(LASTVIS = str_to_upper(AVISIT)), mode = "last",
  missing_values = exprs(LASTVIS = "UNKNOWN", LASTVISN = -1))
Condition
  Error in `derive_vars_merged()`:
  ! The variable `LASTVISN` was specified for `missing_values` but not for `new_vars`.

derive_vars_merged Test 13: error if not unique, no order, check_type = error

Code
  actual <- derive_vars_merged(advs, dataset_add = adsl2, by_vars = exprs(STUDYID,
    USUBJID = ID), order = NULL, check_type = "error")
Condition
  Error in `signal_duplicate_records()`:
  ! Dataset `dataset_add` contains duplicate records with respect to `STUDYID` and `ID`.
  i Run `admiral::get_duplicates_dataset()` to access the duplicate records

derive_vars_merged Test 14: error if not unique, no order, check_type = warning

Code
  actual <- derive_vars_merged(advs, dataset_add = adsl2, by_vars = exprs(STUDYID,
    USUBJID = ID), order = NULL, check_type = "warning")
Condition
  Error in `signal_duplicate_records()`:
  ! Dataset `dataset_add` contains duplicate records with respect to `STUDYID` and `ID`.
  i Run `admiral::get_duplicates_dataset()` to access the duplicate records

derive_vars_merged Test 15: error if not unique, no order, check_type = NULL

Code
  actual <- derive_vars_merged(advs, dataset_add = adsl2, by_vars = exprs(STUDYID,
    USUBJID = ID), order = NULL, check_type = NULL)
Condition
  Error in `signal_duplicate_records()`:
  ! Dataset `dataset_add` contains duplicate records with respect to `STUDYID` and `ID`.
  i Run `admiral::get_duplicates_dataset()` to access the duplicate records

derive_vars_merged_lookup Test 19: merge lookup table

Code
  actual <- derive_vars_merged_lookup(vs, dataset_add = param_lookup, by_vars = exprs(
    VSTESTCD, VSTEST), new_var = exprs(PARAMCD, PARAM = DESCRIPTION),
  print_not_mapped = TRUE)
Message
  List of `VSTESTCD` and `VSTEST` not mapped:
  # A tibble: 1 x 2
  VSTESTCD VSTEST
  <chr> <chr>
  1 DIABP Diastolic Blood Pressure
  i Run `admiral::get_not_mapped()` to access the full list.

derive_vars_merged_lookup Test 21: by_vars with rename

Code
  actual <- derive_vars_merged_lookup(vs, dataset_add = param_lookup, by_vars = exprs(
    VSTESTCD = TESTCD, VSTEST), new_var = exprs(PARAMCD, PARAM = DESCRIPTION),
  print_not_mapped = TRUE)
Message
  List of `VSTESTCD` and `VSTEST` not mapped:
  # A tibble: 1 x 2
  VSTESTCD VSTEST
  <chr> <chr>
  1 DIABP Diastolic Blood Pressure
  i Run `admiral::get_not_mapped()` to access the full list.

get_not_mapped Test 22: not all by_vars have records in the lookup table

Code
  act_vs_param <- derive_vars_merged_lookup(vs, dataset_add = param_lookup,
    by_vars = exprs(VSTESTCD, VSTEST), new_var = exprs(PARAMCD, PARAM = DESCRIPTION),
    print_not_mapped = TRUE)
Message
  List of `VSTESTCD` and `VSTEST` not mapped:
  # A tibble: 1 x 2
  VSTESTCD VSTEST
  <chr> <chr>
  1 DIABP Diastolic Blood Pressure
  i Run `admiral::get_not_mapped()` to access the full list.

derive_var_merged_summary Test 28: error when relatioship is

      incorrectly specificed 'one-to-one'

Code
  derive_vars_merged(advs, dataset_add = adsl, by_vars = exprs(USUBJID),
  new_vars = exprs(SEX), relationship = "one-to-one")
Condition
  Error in `tryCatch()`:
  ! Each row in `dataset_add` must match at most 1 row in `dataset`.
  i Row 1 of `dataset_add` matches multiple rows in `dataset`.

derive_var_merged_summary Test 29: merge selected variables with

      relatioship as 'one-to-one'

Code
  derive_vars_merged(adsl, dataset_add = advs, by_vars = exprs(USUBJID),
  new_vars = exprs(WEIGHTBL = AVAL), filter_add = AVISIT == "BASELINE",
  relationship = "one-to-one")
Output
  # A tibble: 4 x 5
    USUBJID SEX   COUNTRY STUDYID WEIGHTBL
    <chr>   <chr> <chr>   <chr>      <dbl>
  1 ST42-1  F     AUT     ST42          66
  2 ST42-2  M     MWI     ST42          88
  3 ST42-3  M     NOR     ST42          NA
  4 ST42-4  F     UGA     ST42          NA

admiral documentation built on June 22, 2024, 9:06 a.m.