🚚 Move default config data from external file to internal data

NONONOexe · Dec 22, 2024 · 83472f9 · 83472f9
1 parent 4125d75
commit 83472f9
Show file tree

Hide file tree

Showing 5 changed files with 13 additions and 11 deletions.
diff --git a/R/config.R b/R/config.R
@@ -8,9 +8,7 @@
 #' @seealso [reset_config()] for resetting the configuration.
 #' @export
 #' @examples
-#' \dontrun{
-#' config <- get_config()
-#' }
+#' get_config()
 get_config <- function() {
   config <- getOption("jpaccidents.config")
   if (is.null(config)) {
@@ -53,11 +51,7 @@ load_config <- function(config_path) {
 #' @examples
 #' reset_config()
 reset_config <- function() {
-  load_config(system.file(
-    "config",
-    "jpaccidents-config.yaml",
-    package = "jpaccidents"
-  ))
+  options(jpaccidents.config = default_config)
 }
 
 #' @export

diff --git a/R/sysdata.rda b/R/sysdata.rda
diff --git a/data-raw/default_config.R b/data-raw/default_config.R
@@ -0,0 +1,10 @@
+library(here)
+library(yaml)
+library(usethis)
+
+config_path <- here("data-raw", "jpaccidents-config.yaml")
+default_config <- read_yaml(config_path)
+attr(default_config, "path") <- config_path
+class(default_config) <- "jpaccidents_config"
+
+use_data(default_config, overwrite = TRUE, internal = TRUE)
diff --git a/inst/config/jpaccidents-config.yaml → data-raw/jpaccidents-config.yaml b/inst/config/jpaccidents-config.yaml → data-raw/jpaccidents-config.yaml
diff --git a/man/get_config.Rd b/man/get_config.Rd