test of meta_add_total.R

[LittleBeannie]

Test plan of meta_add_total

• Throw error when meta_add_total(meta = meta_dummy(), total = c("Total", "Sum"))
• The output of

x <- meta_add_total(meta = meta_dummy(), total = "Total")
x$data_population$TRTA
x$data_observation$TRTA

has a "Total" there in both data_population and data_observation.

USUBJID TRTA
1 treatment
2 control
1 Total
2 Total

group by TRTA
summarize n(USUBJID)

treatment 1
control 1
Total 2