R/load_providers.R

In ropensci/oai: General Purpose 'Oai-PMH' Services Client

#' 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)
}