R/load_existing_datasets.R

In langcog/metalabr: R package for accessing MetaLab data

#' @export
get_current_metalab_data <- function(rdata_file = get_current_data_url()) {
  load(url(rdata_file), envir = .GlobalEnv)
}

get_cached_metalab_data <- function(rdata_file = get_cached_data_file()) {
  load(rdata_file, envir = .GlobalEnv)
}

get_current_data_url <- function() {
  return("https://raw.githubusercontent.com/langcog/metalab/main/shinyapps/site_data/Rdata/metalab.Rdata")
}

get_cached_data_file <- function() {
  return(here::here("shinyapps", "site_data", "Rdata", "metalab.Rdata"))
}