Independent test of `collect.R` about metalite HOT 8 CLOSED

Test plan of collect_population()

• The output of collect_population(meta_dummy(), "apat", "wk12", "ser") should be

$population
[1] "SAFFL == 'Y'"

$observation
[1] "SAFFL == 'Y'"

$parameter
[1] "AESER == 'Y'"

• The output of collect_population(meta_dummy(), "apat", "wk24", "ser") should be

$population
[1] "SAFFL == 'Y'"

$observation
[1] "AOCC01FL == 'Y'"

$parameter
[1] "AESER == 'Y'"

• The output of collect_population(meta_dummy(), "apat", "wk24", "rel") should be

$population
[1] "SAFFL == 'Y'"

$observation
[1] "AOCC01FL == 'Y'"

$parameter
[1] "AEREL %in% c('POSSIBLE', 'PROBABLE')"

from metalite.

Test plan of collect_population_index()

• The output of collect_population_index(meta_dummy, "itt") is 1:254
• The output of collect_population_index(meta_dummy, "itt") is a subset of 1:254 whose SAFFL == 'Y'

from metalite.

Test plan of collect_population_id()

• The output of collect_population_iD(meta_dummy, "itt") is an error
• The output of collect_population_id(meta_dummy, "apat") is the USUBJID whose SAFFL == 'Y'

from metalite.

Test plan of collect_population_record()

• The output of head(collect_population_record(meta_dummy(), "apat")) is a 3-column table: USUBJID, TRTA, and SAFFL
• The output of head(collect_population_record(meta_dummy(), "apat", VAR = "AGE))` is a 4-column table: USUBJID, TRTA, SAFFL and AGE.

from metalite.

Test plan of collect_observation_index()

refer to the test plan of collect_population_index()

from metalite.

Test plan of collect_observation_record()
refer to the test plan of collect_population_record()

from metalite.

Test plan of collect_title()

• The output of collect_title(meta_dummy(), "apat", "wk12", "ser", "ae_summary") is a string vector of length three:
  • "Summary of Adverse Events" (analysis)
  • "Weeks 0 to 12" (observation)
  • "All Participants as Treated" (population)
• The output of collect_title(meta_dummy(), "apat", "wk12", "ser", "ae_forest") is a string vector of length two:
  • "Weeks 0 to 12" (observation)
  • "All Participants as Treated" (population)

from metalite.

Test plan of collect_dataname()

• The output of collect_dataname(meta_dummy) is

 population observation 
     "adsl"      "adae"

from metalite.