R/etc.R

In MadeInR/store: Store and Fetch Values (key value pairs)

get_local_file_path <- function(group, local_path){
  if(missing(local_path)){
    local_path <- fetch_session("storage_method.local_path", internal = T)
  }
  if(is.null(local_path)){
    warning("Local path is not set. Using .store folder.")
    local_path <- ".store"
  }

  if(!missing(group)){
    local_path <- file.path(local_path,group)
  }

  file_path <- file.path(local_path,"cache")

  return(file_path)
}