data-raw/testdata-outcome_by_followup_time.R

In JayAchar/hisreportr: hisreportr: Automating MSF OCA EMR reporting

# test data - hiv_cohort_outcomes 

td <- data.frame(id = rep(1:3, each = 3),
           starttre = lubridate::dmy("1/1/2010"),
           date = lubridate::dmy("1/1/2010") + 
             c(0, 200, 400,
               0, 30, 90,
               190, 200, 400),
           status = rep(letters[1:3], 3),
           stringsAsFactors = FALSE
)

# save tb_month raw data for SQL testing db
saveRDS(td, "inst/testdata/testdata-outcome_by_followup_time.rds", version = 2)