R/gt_path.R

In geysertimes: Geyser Data from GeyserTimes.org

"gt_path" <- function(temp=FALSE) {
  if(temp) {
    file.path(tempdir(), "geysertimes")
  } else {
    # rappdirs::user_data_dir(appname="geysertimes", appauthor="geysertimes")
    tools::R_user_dir("geysertimes", "data")
  }
}