search

Merck / metalite

An R package to create metadata structure for ADaM data analysis and reporting
https://merck.github.io/metalite/
GNU General Public License v3.0
15 stars 5 forks source link

bug fix: collect_n_subject #139

Closed fb-elong closed 1 year ago

fb-elong commented 1 year ago

84 handle situation with different use_na values.

fb-elong commented 1 year ago

Tried situations below. 

library(r2rtf)
devtools::load_all()

meta <- meta_example() |>
  define_parameter(name = "age", var = "AGE", label = "Age") 

# No Missing 
collect_n_subject(meta, "apat", "age", use_na = "always")
collect_n_subject(meta, "apat", "age", use_na = "ifany")            
collect_n_subject(meta, "apat", "age", use_na = "no") 

# Missing Variable
meta$data_population$AGE[2] <- NA

collect_n_subject(meta, "apat", "age", use_na = "always")
collect_n_subject(meta, "apat", "age", use_na = "ifany")            
collect_n_subject(meta, "apat", "age", use_na = "no") 

# Missing Group 
meta$data_population$TRTA[1:3] <- NA

collect_n_subject(meta, "apat", "age", use_na = "always")
collect_n_subject(meta, "apat", "age", use_na = "ifany")            
collect_n_subject(meta, "apat", "age", use_na = "no")