get_config.R 494 B

1234567891011121314151617
  1. #' Mooduli konfiguratsioon andmed
  2. #'
  3. #' JSONi konfiguratsioon faili lugemine. Muuda seda faili vajadusel. Rakenda seda funktsiooni oma konfiguratsioonifailile.
  4. #' @param conf json fail konfiguratsioon muutujate argumentidega.
  5. #' @keywords cats
  6. #' @export
  7. #' @examples
  8. #' get_config()
  9. get_config <- function(conf = NULL) {
  10. if (is.null(conf)) {
  11. config <- rjson::fromJSON(file = system.file("extdata", "config.json", package = "ruut"))
  12. }
  13. else {
  14. config <- conf
  15. }
  16. return(config)
  17. }