R/hs_cache_dir.R

In ku-awdc/HexScape: Aggregation of Spatial Data into Discrete Patches using Simple Features

#' Locations for `hexscape` cached data
#'
#' @param subfolder Either `gisco` or `corine`.
#' @param year Default to 2021.
#' @param create_subfolders
#'
#' @importFrom  tools R_user_dir
#'
#' @seealso [hs_data_dir()]
#'
#/' @export
hs_cache_dir <- function(subdir=c("gisco","corine"), year=c("2021"), create_subdir=TRUE){

  subdir <- match.arg(subdir)

  if(is.numeric(year)) year <- as.character(year)
  year <- match.arg(year)

  bpath <- R_user_dir("hexscape", "cache")

  if(!dir.exists(bpath)){
    cat("Creating package cache directory at '", bpath, "'\n", sep="")
    dir.create(bpath, recursive=TRUE)
  }

  if(create_subdir && !dir.exists(file.path(bpath, subdir, year))){
    dir.create(file.path(bpath, subdir, year), recursive=TRUE)
  }

  return(file.path(bpath, subdir, year))
}

## TODO: if caching doesn't take too long for corine then use R_user_dir("hexscape", "cache") for that rather than data (and remove "raw" from data_dir and put raw data under gisco or corine)