Merge pull request #48 from economic-analytics/automate-other-datasets

Automate other datasets

.pipelines/run_ons_update.R

@@ -5,3 +5,5 @@ check_next_update_dates()
 pkgload::load_all()
 
 ons_update_datasets()
+
+update_other_datasets()

R/data-ons-update-others.R

@@ -0,0 +1,15 @@
+other_datasets_to_update <- function() {
+  edd_dict |>
+    dplyr::filter(
+      status,
+      !is.na(func),
+      next_update <= Sys.Date() &
+        next_update >= last_download
+    )
+}
+
+update_other_datasets <- function() {
+  for (dataset in other_datasets_to_update()$id) {
+    eval(call(edd_dict$func[edd_dict$id == dataset]))
+  }
+}