R/loadLocalAcronyms.R

In CommerceDataService/eu.us.opendata: A library for bringing together EU and US statistical data

#' Load local acronym metadata cache
#' 
#' @keywords internal
#' @return Local cache of acronyms 
#' @import data.table
#' @export 

loadLocalAcronyms <- function(){
  
  localPath <- paste0(.libPaths()[1], '/eu.us.opendata/extdata')
  
  tryCatch({
    localAcronyms <- utils::read.csv(paste0(localPath, '/Acronym_Table.csv'));
    return(localAcronyms);
  })
  
}