Independent test of outdata.R

[LittleBeannie]

Test plan of outdata():

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

• Its class is "outdata"
• Its output is a list of length 8, including meta, population, observation, parameter, n, order, group, and reference_group.

[LittleBeannie]

Test plan of new_outdata():

• It outputs an error when metalite:::new_outdata(1)
• The output of the following code is an "outdata

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)

[LittleBeannie]

Test plan of validate_outdata()

• It outputs an error

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

when run

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))

• It outputs an error

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

when run

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")))

• It outputs an error

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

when run

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))

• It outputs an error

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

when run

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))

• It outputs an error

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

when run

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))