#' 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)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.