R/setDefaultParams.R

In daattali/rsalad: A mix of useful R functions that are good for you

#' @export
setDefaultParams <- function(params) {
  params <- as.list(params)
  env <- parent.frame(1)

  invisible(
    lapply(names(params), function(key) {
      if (!exists(key, envir = env, inherits = FALSE)) {
        assign(key, params[[key]], envir = env, inherits = FALSE)
      }
    })
  )
}