R/R_user_dir.R

In jackwasey/icd: Comorbidity Calculations and Tools for ICD-9 and ICD-10 Codes

# !diagnostics off

#' @title Backport of R_user_dir for R < 4.0.0
#'
#' @description
#' See the original description in \code{tools::R_user_dir}.
#'
#' @keywords internal
#' @examples
#' \dontrun{
#' # get function from namespace instead of possibly getting
#' # implementation shipped with recent R versions:
#' f <- getFromNamespace("R_user_dir", "icd")
#' cached <- f("icd", "cache")
#' confd <- f("icd", "config")
#' datad <- f("icd", "data")
#' dir.exists(c(cached, confd, datad))
#' prnts <- vapply(c(cached, confd, datad), dirname, character(1))
#' dir.exists(prnts)
#' p_prt <- vapply(prnts, dirname, character(1))
#' dir.exists(p_prt)
#' q_prt <- vapply(p_prt, dirname, character(1))
#' dir.exists(q_prt)
#' r_prt <- vapply(q_prt, dirname, character(1))
#' dir.exists(r_prt)
#' vapply(list(prnts, p_prt, q_prt, r_prt), `[[`, FUN.VALUE = character(1), 1)
#' }
#' @author Michael Lang, adapted by Jack Wasey
#' @keywords internal
#' @noRd
R_user_dir <- function(package = "icd", which = c("data", "config", "cache")) {
  stopifnot(is.character(package), length(package) == 1L)

  which <- match.arg(which)

  home <- normalizePath("~")

  path <-
    switch(which,
      data = {
        if (nzchar(p <- Sys.getenv("R_USER_DATA_DIR"))) {
          p
        } else if (nzchar(p <- Sys.getenv("XDG_DATA_HOME"))) {
          p
        } else if (.Platform$OS.type == "windows") {
          file.path(Sys.getenv("APPDATA"), "R", "data")
        } else if (Sys.info()["sysname"] == "Darwin") {
          file.path(
            home, "Library", "Application Support",
            "org.R-project.R"
          )
        } else {
          file.path(home, ".local", "share")
        }
      },
      config = {
        if (nzchar(p <- Sys.getenv("R_USER_CONFIG_DIR"))) {
          p
        } else if (nzchar(p <- Sys.getenv("XDG_CONFIG_HOME"))) {
          p
        } else if (.Platform$OS.type == "windows") {
          file.path(Sys.getenv("APPDATA"), "R", "config")
        } else if (Sys.info()["sysname"] == "Darwin") {
          file.path(
            home, "Library", "Preferences",
            "org.R-project.R"
          )
        } else {
          file.path(home, ".config")
        }
      },
      cache = {
        if (nzchar(p <- Sys.getenv("R_USER_CACHE_DIR"))) {
          p
        } else if (nzchar(p <- Sys.getenv("XDG_CACHE_HOME"))) {
          p
        } else if (.Platform$OS.type == "windows") {
          file.path(Sys.getenv("LOCALAPPDATA"), "R", "cache")
        } else if (Sys.info()["sysname"] == "Darwin") {
          file.path(
            home, "Library", "Caches",
            "org.R-project.R"
          )
        } else {
          file.path(home, ".cache")
        }
      }
    )

  file.path(path, "R", package)
}