library(tibble)
library(dplyr)
library(lubridate)
library(admiralonco)
library(rlang)
adrs <- tribble(
~USUBJID, ~ADTC, ~AVALC,
"1", "2020-01-01", "PR",
"1", "2020-02-01", "CR",
"1", "2020-02-16", "NE",
"1", "2020-03-01", "CR",
"2", "2020-02-06", "PR",
"2", "2020-02-16", "CR",
"2", "2020-03-30", "PR",
) %>%
mutate(
ADT = ymd(ADTC),
STUDYID = "XX1234"
)
signal_crpr(adrs, order = exprs(ADT))
get_crpr_dataset()
Run the code above in your browser using DataLab