R/load_global.R

In ahorawzy/Mreport: Monthly Report of traffic condition

#' @export
load_raw <- function(filename) {
    pathname <- paste("D:\\R\\packages\\Mreport\\data-raw\\", filename, ".Rdata", sep = "")
    load(pathname, .GlobalEnv)
}

#' @export
load_base <- function() {
    load_raw("station_simple")
    load_raw("station_useful")
    load_raw("station_plot")
    load_raw("station_line")
    load_raw("station_use")
    load_raw("line")
    load_raw("roadlevel")
    load_raw("roadlevel2")
    load_raw("province_level")
    load_raw("province_region")
    load_raw("mileage")
}

#' @export
load_sample_base <- function() {
    load_raw("sample_base")
}