data-raw/testdata-calculate_reporting_period.R

# test data for calculate_reporting_period()

dates <- data.frame(patient_id = 1:7,
                    starttre = lubridate::dmy("2/1/10", 
                        "2/5/10",
                        "3/8/10", 
                        "30/9/10",
                        "1/10/10",
                        "31/12/10",
                        NA_character_),
                    stringsAsFactors = FALSE)


# save tb_month raw data for SQL testing db
saveRDS(dates, "inst/testdata/testdata-calculate_reporting_period.rds", version = 2)
JayAchar/hisreportr documentation built on March 18, 2020, 5:57 a.m.