In this issue, we will make it only accept a table of candidate values as specified by choices.
define_analysis <- function(meta, name = c("ae_summary", "ae_specific", "ae_forestly", "boxly",
"base_char", "trt_compliance", "disposition", "base_char_subgroup",
"km_curvely", "hr_forestly")) {
name <- match.arg(name)
...
}