if (require(outbreaks)) {
## create a valid linelist
x <- measles_hagelloch_1861 |>
make_linelist(
id = "case_ID",
date_onset = "date_of_prodrome",
age = "age",
gender = "gender"
)
x
## validation
validate_linelist(x)
## create an invalid linelist - onset date is a factor
x <- measles_hagelloch_1861 |>
make_linelist(
id = "case_ID",
date_onset = "gender",
age = "age"
)
x
## the below issues an error
## note: tryCatch is only used to avoid a genuine error in the example
tryCatch(validate_linelist(x), error = paste)
}
Run the code above in your browser using DataLab