Defines functions setDefaults loadConfig

# Loads in a config file based on an opt list and returns the opt list
loadConfig <- function(opt) {

  if (!exists("config")) {
    stop("No config object found in config file")

  config <- config[!is.na(config)] # Discard NA values

  # Keep only config values that were not passed as command line options
  config <- config[!(names(config) %in% names(opt))]

  # Merge command line args and config values
  opt <- c(opt, config)


# Merges an opt with a list of defaults
setDefaults <- function(opt, defaults) {
  default <- default[!(names(default) %in% names(opt))]
  opt     <- c(opt, default)
palmerito0/kboolnet documentation built on April 27, 2023, 12:41 p.m.