add a helper to source all data-generating files

Author: nmdefries

data-raw/_run_all.R

@@ -0,0 +1,16 @@
+library(here)
+
+internal_data_path <- here("data-raw")
+files <- list.files(
+  internal_data_path, pattern = ".*[.]R",
+  full.names = FALSE
+)
+for (file in files) {
+  if (startsWith(file, "_")) {
+    # File is a helper script and does not generate data.
+    next
+  }
+  path <- here(file)
+  message("running ", path, " ...")
+  source(path)
+}