data-raw/testdata-merge_to_episode.R

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

# test data for merge_to_episode()

start <- data.frame(id = c(1:5, 5),
                    sdate = lubridate::dmy(c(rep("1/6/2010", 5), "5/11/2010")),
                    regimen = 1:6,
                    stringsAsFactors = FALSE)

reg <- data.frame(id = c(rep(1, 2), 3, rep(4, 2), rep(5, 3)),
                  reg_date = lubridate::dmy("1/1/2010", "2/1/2010", 
                                            "2/6/2010", 
                                            "5/5/2010", "5/5/2010",
                                            "1/6/2010", NA_character_, "4/11/2010"),
                  ch = letters[1:8], 
                  stringsAsFactors = FALSE)

m <- list(start, reg)

# save 
saveRDS(m, "inst/testdata/testdata-merge_to_episode.rds", version = 2)