adds external saver

data-raw/save_externally.R

@@ -0,0 +1,59 @@
+library(purrr)
+rda2list = function(file) {
+        e = new.env()
+        load(file, envir = e)
+        li = list(as.list(e))
+        names(li) = tools::file_path_sans_ext(basename(file))
+        return(li)
+}
+
+single_saver = function(x, filepath){
+        print(filepath)
+        if (inherits(x, "sf")){
+                sf::write_sf(x, paste0(filepath, ".gpkg"))
+        } else if (inherits(x, "sp")) {
+                sf::write_sf(st_as_sf(x), paste0(filepath, ".gpkg"))
+        } else if (inherits(x, "data.frame") || inherits(x, "matrix") || inherits(x, "numeric")) {
+                write.csv(x, paste0(filepath, ".csv"), row.names = FALSE)
+        } else if (inherits(x, "nb") && !inherits(x, "listw")){
+                spdep::write.nb.gal(x, paste0(filepath, ".gal"))
+        }
+        #         
+        # } else if (inherits(x, "matrix"))
+}
+
+saver = function(x, outdir){
+        for (i in seq_along(x)){
+                name = names(x)[i]
+                switch_name = switch (name,
+                        "aggregating_zones_aggregating_zones" = "aggregating_zones",
+                        "coffee_data_coffee_data" = "coffee_data",
+                        "cycle_hire_osm_cycle_hire_osm" = "cycle_hire_osm",
+                        "cycle_hire_cycle_hire" = "cycle_hire",
+                        "nc.sids_nc.sids" = "nc.sids",
+                        "nz_height_nz_height" = "nz_height",
+                        "urban_agglomerations_urban_agglomerations" = "urban_agglomerations",
+                        "us_states_df_us_states_df" = "us_states_df",
+                        "us_states_us_states" = "us_states",
+                        "used.cars_used.cars" = "used.cars",
+                        "worldbank_df_worldbank_df" = "worldbank_df"
+                )
+                if (!is.null(switch_name)) name = switch_name
+                name_parts = strsplit(name, "[_\\.]")[[1]]
+                if (length(name_parts) > 1 && name_parts[1] == name_parts[2]) {
+                        name = paste0(name_parts[1], "", tools::file_ext(name))
+                }
+                single_saver(x[[i]], paste0(outdir, "/", name))
+        }
+}
+
+dir.create("data-raw/outputs", showWarnings = FALSE)
+dir("data", full.names = TRUE) |>
+        lapply(rda2list) |>
+        lapply(list_flatten, name_repair = "minimal") |>
+        list_flatten() |>
+        saver("data-raw/outputs")
+
+
+
+