Create rds files version to zenodo

Author: rfsaldanha

R/datasus_mun_female_pop.R

@@ -10,4 +10,7 @@
 #'   \item{age_group}{age group}
 #'   \item{pop}{population estimative}
 #' }
-"datasus_mun_female_pop"
+datasus_mun_female_pop <- function(){
+  path <- zendown::zen_file(deposit_id = zenodo_deposit, file_name = "datasus_mun_female_pop.rds")
+  readRDS(file = path)
+}

R/zenodo_deposit.R

@@ -0,0 +1 @@
+zenodo_deposit <- 13946877

data-raw/datasus_mun_female_pop.rds

@@ -7,11 +7,21 @@ load(file = "data-raw/datasus/mun_female_pop.rda")
 datasus_mun_female_pop <- mun_female_pop |>
   rename(code_muni = mun)
 
-usethis::use_data(datasus_mun_female_pop, overwrite = TRUE, compress = "xz")
+#usethis::use_data(datasus_mun_female_pop, overwrite = TRUE, compress = "xz")
+saveRDS(
+  object = datasus_mun_female_pop,
+  file = "data-raw/datasus_mun_female_pop.rds",
+  compress = "xz"
+)
 
 load(file = "data-raw/datasus/mun_male_pop.rda")
 
 datasus_mun_male_pop <- mun_male_pop |>
   rename(code_muni = mun)
 
-usethis::use_data(datasus_mun_male_pop, overwrite = TRUE, compress = "xz")
+#usethis::use_data(datasus_mun_male_pop, overwrite = TRUE, compress = "xz")
+saveRDS(
+  object = datasus_mun_male_pop,
+  file = "data-raw/datasus_mun_male_pop.rds",
+  compress = "xz"
+)

data-raw/datasus_mun_male_pop.rds

@@ -37,4 +37,9 @@ ibge_pop <- full_join(tab202, tab793, by = "code_muni") |>
   pivot_longer(cols = 2:26, names_to = "year", values_to = "pop") |>
   mutate(year = as.numeric(year))
 
-usethis::use_data(ibge_pop, overwrite = TRUE, compress = "xz")
+#usethis::use_data(ibge_pop, overwrite = TRUE, compress = "xz")
+saveRDS(
+  object = ibge_pop,
+  file = "data-raw/ibge_pop.rds",
+  compress = "xz"
+)

data-raw/datasus_mun_pop.R

@@ -39,10 +39,21 @@ ufrn_mun_female_pop <- ufrn_pop |>
   filter(sexo == "f") |>
   select(-sexo)
 
-usethis::use_data(ufrn_mun_female_pop, overwrite = TRUE, compress = "xz")
+#usethis::use_data(ufrn_mun_female_pop, overwrite = TRUE, compress = "xz")
+saveRDS(
+  object = ufrn_mun_female_pop,
+  file = "data-raw/ufrn_mun_female_pop.rds",
+  compress = "xz"
+)
 
 ufrn_mun_male_pop <- ufrn_pop |>
   filter(sexo == "m") |>
   select(-sexo)
 
-usethis::use_data(ufrn_mun_male_pop, overwrite = TRUE, compress = "xz")
+#usethis::use_data(ufrn_mun_male_pop, overwrite = TRUE, compress = "xz")
+saveRDS(
+  object = ufrn_mun_male_pop,
+  file = "data-raw/ufrn_mun_male_pop.rds",
+  compress = "xz"
+)
+