Skip to contents

Add Flags to ADAE

Source: R/adae_utils.R
add_adae_flags.Rd

[Maturing]

Usage

add_adae_flags(df)

Arguments

df

(data.frame)
ADAE dataset.

Value

ADAE dataset with added flags

See also

Other adae_utils: build_adae_by_sev_tox(), build_adae_summary()

Examples

suppressMessages(library(dplyr))

adsl <- pharmaverseadam::adsl
#> Error in loadNamespace(x): there is no package called 'pharmaverseadam'
adae <- pharmaverseadam::adae
#> Error in loadNamespace(x): there is no package called 'pharmaverseadam'

adae_ <- suppressMessages(add_adae_flags(adae))

adae_ |>
  select(c("USUBJID", setdiff(names(adae_), names(adae)))) |>
  slice_head(n = 5)
#> # A tibble: 5 × 16
#>   USUBJID     SER   SAEFATAL SAELIFE SAEHOSP SAEDISAB SAECONG SAEMIE WD    WDSM 
#>   <chr>       <lgl> <lgl>    <lgl>   <lgl>   <lgl>    <lgl>   <lgl>  <lgl> <lgl>
#> 1 AB12345-BR… FALSE FALSE    FALSE   FALSE   FALSE    FALSE   FALSE  FALSE FALSE
#> 2 AB12345-BR… FALSE FALSE    FALSE   FALSE   FALSE    FALSE   FALSE  FALSE FALSE
#> 3 AB12345-BR… TRUE  FALSE    FALSE   FALSE   TRUE     FALSE   FALSE  FALSE FALSE
#> 4 AB12345-BR… TRUE  FALSE    FALSE   FALSE   FALSE    TRUE    FALSE  TRUE  FALSE
#> 5 AB12345-BR… FALSE FALSE    FALSE   FALSE   FALSE    FALSE   FALSE  FALSE TRUE 
#> # ℹ 6 more variables: AEINT <lgl>, AERED <lgl>, AED <lgl>, AEMIE <lgl>,
#> #   CTC35 <lgl>, CTC45 <lgl>