use simplify_temp_sf(tolerance = 10) for census tracts

ipeaGIT · Mar 26, 2024 · 12ae76a · 12ae76a
1 parent f48f1cc
commit 12ae76a
Show file tree

Hide file tree

Showing 2 changed files with 11 additions and 11 deletions.
diff --git a/data_prep/R/census_tract_2022.R b/data_prep/R/census_tract_2022.R
@@ -54,24 +54,24 @@ temp_sf <- harmonize_projection(temp_sf)
 
 save_state <- function(code_uf){ # code_uf <- 11
 
-  temp_sf2 <- subset(temp_sf, code_state == code_uf)
+    temp_sf2 <- subset(temp_sf, code_state == code_uf)
 
- # temp_sf2 <- subset(temp_sf2, code_muni == '3304557')
+   # temp_sf2 <- subset(temp_sf2, code_muni == '3304557')
 
 
 
 
-  # convert to MULTIPOLYGON
-  temp_sf2 <- to_multipolygon(temp_sf2)
+    # convert to MULTIPOLYGON
+    temp_sf2 <- to_multipolygon(temp_sf2)
 
-  # simplify
-  temp_sf_simplified <- simplify_temp_sf(temp_sf2)
+    # simplify
+    temp_sf_simplified <- simplify_temp_sf(temp_sf2, tolerance = 10)
 
-  # Save cleaned sf in the cleaned directory
-  sf::st_write(temp_sf2, paste0(dest_dir, code_uf,".gpkg") )
-  sf::st_write(temp_sf_simplified, paste0(dest_dir, code_uf,"_simplified.gpkg"),)
+    # Save cleaned sf in the cleaned directory
+  #  sf::st_write(temp_sf2, paste0(dest_dir, code_uf,".gpkg") )
+    sf::st_write(temp_sf_simplified, paste0(dest_dir, code_uf,"_simplified.gpkg"))
 
-}
+  }
 
 
 all_states <- unique(temp_sf$code_state)

diff --git a/r-package/DESCRIPTION b/r-package/DESCRIPTION
@@ -38,7 +38,7 @@ Imports:
       sf (>= 0.9-3),
       utils
 Suggests:
-    censobr,
+    censobr (>= 0.3.2),
     covr,
     dplyr (>= 0.8-3),
     ggplot2 (>= 3.3.1),