# 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)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.