Move folder checking code to R/03_check-folders.R

R/00_base_join.R

@@ -14,7 +14,7 @@ if (!getOption("tidy_verb_anim.functions_loaded", FALSE)) {
   source(here::here("R", "02_functions.R"))
 }
 
-if (!dir.exists(here::here("images"))) dir.create(here::here("images"))
+source(here::here("R", "03_check-folders.R"))
 
 plot_data_join <- function(x, title = "", xlims = xlim(0.5, 5.5), ylims = ylim(-3.5, -0.5)) {
   plot_data(x, title) +

R/00_base_set.R

@@ -14,7 +14,7 @@ if (!getOption("tidy_verb_anim.functions_loaded", FALSE)) {
   source(here::here("R", "02_functions.R"))
 }
 
-if (!dir.exists(here::here("images"))) dir.create(here::here("images"))
+source(here::here("R", "03_check-folders.R"))
 
 # Initialize data processing function ----
 

R/03_check_folders.R

@@ -0,0 +1,5 @@
+if (!dir.exists(here::here("images"))) dir.create(here::here("images"))
+png_path <- here::here("images", "static", "png")
+svg_path <- here::here("images", "static", "svg")
+if (!dir.exists(png_path)) dir.create(png_path, recursive = TRUE)
+if (!dir.exists(svg_path)) dir.create(svg_path, recursive = TRUE)

README.Rmd

@@ -13,10 +13,6 @@ knitr::opts_chunk$set(
   message = FALSE,
   cache = TRUE
 )
-png_path <- file.path("images", "static", "png")
-svg_path <- file.path("images", "static", "svg")
-if (!dir.exists(png_path)) dir.create(png_path, recursive = TRUE)
-if (!dir.exists(svg_path)) dir.create(svg_path, recursive = TRUE)
 ```
 
 [gganimate]: https://github.com/thomasp85/gganimate#README