call_derivation: Call a Single Derivation Multiple Times
In epijim/admiral: ADaM in R Asset Library

Description Usage Arguments Value Author(s) See Also Examples

Call a single derivation multiple times with some parameters being fixed across iterations and others varying.

1	call_derivation(dataset = NULL, derivation, variable_params, ...)

`dataset`	The input dataset
`derivation`	The derivation function to call
`variable_params`	A `list` of arguments that are different across iterations. Each set of arguments must be created using `params()`.
`...`	Any number of named arguments that are fixed across iterations. If a parameter is specified both inside `variable_params` and `...` then the value in `variable_params` overwrites the one in `...`

The input dataset with additional records/variables added depending on which derivation has been used.

Thomas Neitmann, Stefan Bundfuss

params()

library(dplyr, warn.conflicts = FALSE)
library(admiral.test)
data(ae)
data(adsl)

adae <- ae[sample(1:nrow(ae), 1000), ] %>%
  left_join(adsl, by = "USUBJID") %>%
  select(USUBJID, AESTDTC, AEENDTC, TRTSDT, TRTEDT)

## While `derive_vars_dt()` can only add one variable at a time, using `call_derivation()`
## one can add multiple variables in one go
call_derivation(
  dataset = adae,
  derivation = derive_vars_dt,
  variable_params = list(
    params(dtc = AESTDTC, date_imputation = "first", new_vars_prefix = "AST"),
    params(dtc = AEENDTC, date_imputation = "last", new_vars_prefix = "AEN")
  ),
  min_dates = vars(TRTSDT),
  max_dates = vars(TRTEDT)
)

## The above call using `call_derivation()` is equivalent to the following
adae %>%
  derive_vars_dt(
    new_vars_prefix = "AST",
    dtc = AESTDTC,
    date_imputation = "first",
    min_dates = vars(TRTSDT),
    max_dates = vars(TRTEDT)
  ) %>%
  derive_vars_dt(
    new_vars_prefix = "AEN",
    dtc = AEENDTC,
    date_imputation = "last",
    min_dates = vars(TRTSDT),
    max_dates = vars(TRTEDT)
  )