Independent test of `outdata.R` about metalite HOT 2 CLOSED

meta <- meta_dummy()
x <- list(meta = meta_dummy(), population = "apat", observation = "wk12", parameter = "rel", n = meta$data_population %>% group_by(TRTA) %>% summarize(n = n()), group = "TRTA", reference_group = 1, order = 1:3)
new_outdata(x)

Error in `FUN()`:
! variable 'reference_group' must be a numeric value

meta <- meta_dummy()
validate_outdata(outdata(meta = meta_dummy(), population = "apat", observation = "wk12", parameter = "rel", n = meta$data_population %>% group_by(TRTA) %>% summarize(n = n()), group = "TRTA", reference_group = "Placebo", order = 1:3))

Error in `FUN()`:
! variable 'order' must be a numeric value

meta <- meta_dummy()
validate_outdata(outdata(meta = meta_dummy(), population = "apat", observation = "wk12", parameter = "rel", n = meta$data_population %>% group_by(TRTA) %>% summarize(n = n()), group = "TRTA", reference_group = 1, order = c("Placebo", "Xanomeline Low Dose", "Xanomeline High Dose")))

Error in `FUN()`:
! variable 'population' must be a character value

meta <- meta_dummy()
validate_outdata(outdata(meta = meta_dummy(), population = 1, observation = "wk12", parameter = "rel", n = meta$data_population %>% group_by(TRTA) %>% summarize(n = n()), group = "TRTA", reference_group = 1, order = 1:3))

Error in `FUN()`:
! variable 'reference_group' must be length 1

meta <- meta_dummy()
validate_outdata(outdata(meta = meta_dummy(), population = "apat", observation = "wk12", parameter = "rel", n = meta$data_population %>% group_by(TRTA) %>% summarize(n = n()), group = "TRTA", reference_group = 1:2, order = 1:3))

Error in `FUN()`:
! variable 'population' must be length 1

meta <- meta_dummy()
validate_outdata(outdata(meta = meta_dummy(), population = c("apat", "ITT"), observation = "wk12", parameter = "rel", n = meta$data_population %>% group_by(TRTA) %>% summarize(n = n()), group = "TRTA", reference_group = 1, order = 1:3))