get current directory to ensure config copied in coorrect dir fixes J…

…ohnCoene#15
dumians · Mar 14, 2020 · 773ec87 · 773ec87
1 parent eb510cd
commit 773ec87
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/R/config.R b/R/config.R
@@ -9,6 +9,9 @@
 #' @export
 create_config <- function(){
   file <- system.file("coronavirus.yml", package = "coronavirus")
+  directory <- normalizePath(".")
+  destination <- paste0(directory, "/", config_file)
+
   created <- file.copy(file, to = config_file)
   if(created)
     cli::cli_alert_success("_coronavirus.yml file copied: fill it in")