R/read_hira_config.R

In harphub/harpSpatial: Utilities for HARP spatial verification

# Configuration file management

#' Read local harpSpatial configuration files for HiRA
#' @param config_file The name of the config file to be read.
#'   If NULL, the current configuration is printed.
#' @export
read_hira_config <- function(config_file = NULL) {
  if (is.null(config_file)) {
    sapply(ls(harpSpatial_hira_conf), function(x) get(x, envir=harpSpatial_hira_conf))
  } else {
    if (!file.exists(config_file)) error("Config file ", config_file, " not found")
    message("Loading harpSpatial config file ", config_file)
    source(config_file, local=harpSpatial_conf)
    sapply(ls(harpSpatial_hira_conf), function(x) get(x, envir=harpSpatial_hira_conf))
  }
}