if (require(outbreaks) && require(dplyr)) {
## dataset we'll create a linelist from
measles_hagelloch_1861
## create linelist
x <- make_linelist(measles_hagelloch_1861,
id = "case_ID",
date_onset = "date_of_prodrome",
age = "age",
gender = "gender"
)
head(x)
x |>
select(has_tag(c("id", "age"))) |>
head()
}
Run the code above in your browser using DataLab