R/app-config.R

In Sage-Bionetworks/dccvalidator: Metadata Validation for Data Coordinating Centers

#' Access files in the current app
#'
#' @param ... Character vector specifying directory and or file
#'        to point to inside the current package.
#'
#' @noRd
app_sys <- function(...) {
  system.file(..., package = "dccvalidator")
}

#' Read App Config
#'
#' @param value Value to retrieve from the config file.
#' @param config GOLEM_CONFIG_ACTIVE value.
#' If unset, R_CONFIG_ACTIVE.  If unset, "default".
#' @param use_parent Logical,
#' scan the parent directory for config file.
#'
#' @noRd
get_golem_config <- function(value,
                             config = Sys.getenv(
                               "GOLEM_CONFIG_ACTIVE",
                               Sys.getenv(
                                 "R_CONFIG_ACTIVE",
                                 "default"
                               )
                             ),
                             file = Sys.getenv("R_CONFIG_FILE", app_sys("config.yml")),
                             use_parent = TRUE) {
  config::get(
    value = value,
    config = config,
    # Modify this if your config file is somewhere else:
    file = file,
    use_parent = use_parent
  )
}