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 json fail konfiguratsioon muutujate argumentidega.
#' @keywords cats
#' @export
#' @examples
#' config <- get_config()
#' config
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)
}