data-raw/intern_data.R

In StanTraykov/c19bg: COVID-19 Charts for Bulgaria

rd_in <- function(file) {
    readr::read_csv(file.path("data-raw", paste0(file, ".csv")),
                    trim_ws = FALSE,
                    na = "")
}

intern_data = list(
    bg_cnames = rd_in("bg_cnames"),
    ccodes = rd_in("ccodes"),
    pre_opendata = rd_in("pre_opendata"),
    oblasts = rd_in("oblasts"),
    trans_bg = rd_in("trans_bg")
)

usethis::use_data(intern_data, overwrite = TRUE, internal = TRUE)