data-raw/testdata-clean_adm_demographics.R

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

# test data for clean_adm_demographics()

d <- data.frame(
  patient_id = 1:11,
  adm_date = c(paste0(lubridate::dmy("1/1/2018") + as.integer(seq(1, 500, length.out = 8)), 
                    "T00:00:00.111+0100"),
               paste0(lubridate::dmy("1/1/2030"), 
                      "T00:00:00.111+0100"),
               NA_character_,
               paste0(lubridate::dmy("5/1/2017"), 
                      "T00:00:00.111+0100")),
  gender = c(rep(c("M", "F"), each = 4, length.out = 7),
             "U",
             "P", NA_character_, "U"),
  age = c(as.integer(seq(1, 35, length.out = 10)),
          NA_integer_),
  stringsAsFactors = FALSE
)


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