load_providers.R

#' Load an updated cache
#'
#' @export
#' @param path location where cache is located. Leaving to NULL loads
#' the version in the installed package
#' @param envir R environment to load data in to.
#' @details Loads the data object providers into the global workspace.
#' @return loads the object providers into the working space.
#' @seealso [update_providers()]
#' @examples \dontrun{
#' # By default the new providers table goes to directory ".", so just
#' # load from there
#' update_providers()
#' load_providers(path=".")
#'
#' # Loads the version in the package
#' load_providers()
#' }
load_providers<-function(path=NULL, envir=.GlobalEnv) {
if (is.null(path)) {
file<- system.file("data", "providers.rda", package="oai")
 } else {
files<- list.files(path)
copies<- grep("providers.rda", files)
most_recent<-files[copies[length(copies)]]
file<- paste(path, "/", most_recent, sep="")
 }
 load(file, envir=envir)
}