R/read.mc.R

In philbastian/matchcountry: Match Country

#' Reads the MatchCountry tables into memory
#'
#' @param match Local path to the match csv file
#' @param countrydata Local path to the countrydata csv file
#'
#' This is mostly used behind the scenes (on package loading or when update.mc is called). It loads the 
#' csv files with country data into memory.
#'
#' @examples
#' read.mc()
#' 
#' @export

read.mc <- function(match = read.csv(system.file("extdata", "match.csv", package = "matchcountry"), 
                                     na.strings = "", stringsAsFactors = FALSE, encoding = "UTF-8"),
                    countrydata = read.csv(system.file("extdata", "countrydata.csv", package = "matchcountry"),
                                           na.strings = "", stringsAsFactors = FALSE, encoding = "UTF-8")) {
  tryCatch(.mc, error = function(e) {
    .mc <<- new.env(parent = emptyenv())
  })
  
  names(countrydata)[1] <- "iso"
  names(match)[1] <- "language"

  tryCatch({
    for(a in names(match)) Encoding(match[[a]]) <- "UTF-8"
    for(a in names(countrydata)[sapply(countrydata, is.character)]) Encoding(countrydata[[a]]) <- "UTF-8"
  }, error = function(e) NULL)
  
  assign("match", match, .mc)
  assign("countrydata", countrydata, .mc)
  
  ret <- .mc
}