if (FALSE) { # require(filters)
library(dplyr)
library(filters)
data <- list(
adsl = eg_adsl,
adae = eg_adae %>% mutate(AREL = "")
)
null_report()
## An example how to use the `null_report()` inside an output function
t_ae <- function(datasets) {
trt <- "ACTARM"
anl <- semi_join(
datasets$adae,
datasets$adsl,
by = c("STUDYID", "USUBJID")
)
return(null_report())
}
data %>%
filters::apply_filter("SER_SE") %>%
t_ae()
}
Run the code above in your browser using DataLab