ruut/R/get_config.R

#' Mooduli konfiguratsioon andmed
#'
#' JSONi konfiguratsioon faili lugemine. Muuda seda faili vajadusel. Rakenda seda funktsiooni oma konfiguratsioonifailile. Asendame defaul schema nime "date_YYMMDD" tegeliku tänase kuupäevaga, et ei kirjutaks andmebaasis juhuslikult midagi üle. Oma scema lisamiseks config$schema <- "oma_schema".
#' @param conf A list() of configuration variables. Default values \code{\link[ruut]{get_config}}.
#' @return A list().
#' @seealso [ruut::db_connect()], [ruut::get_config()], [ruut::db_all_schemas()]
#' @keywords cats
#' @export
#' @examples
#' ## Not run:
#' ##
#' ## config <- get_config()
#' ## config
#' ## # New schema.
#' ## config$schema <- "new_schema"
#' ##
#' ## End(**Not run**)
get_config <- function(conf = NULL) {
  if (is.null(conf)) {
    config <- rjson::fromJSON(file = system.file("extdata", "config.json", package = "ruut"))
    config$schema <- sprintf("date_%s", format(Sys.Date(), "%y%m%d"))
  }
  else {
    config <- conf
  }
  return(config)
}