update grow with google

Author: dancingfrog

R/load_data.R

@@ -248,6 +248,9 @@ load_rin_service_areas_sf <- function (rin_service_areas) {
 
   names(rin_service_areas_sf) <- snakecase::to_snake_case(names(rin_service_areas_sf))
 
+  # Make sure to use "geometry" as the st_geometry column
+  st_geometry(rin_service_areas_sf) <- "geometry"
+
   # message(paste(class(rin_service_areas_sf), collapse = " "))
   # message(paste(names(rin_service_areas_sf), collapse = " "))
 
@@ -325,6 +328,10 @@ write_data_to_geojson <- function (df, file_path) {
     dplyr::filter(
       `primary_county_flag` == "Yes"
     )
+  
+  # Use the centroid as the geometry for json
+
+  sf::st_geometry(rin_service_areas) <- "centroid"
 
   message(class(rin_service_areas))
 

_targets.R

@@ -51,5 +51,6 @@ list(
   # tar_target(rin_service_areas_tableau_db, save_data_to_db_instance("tableau", "rin", "rin_service_areas", rin_service_areas_db)),
 
   tar_target(rin_service_areas_geojson, write_data_to_geojson(rin_service_areas_sf, here::here("data/rin_service_areas.geojson"))),
-  tar_target(rin_service_areas_s3, write_data_to_s3("cori-risi-apps", "rin_service_areas.geojson", rin_service_areas_geojson))
+  tar_target(rin_service_areas_geojson_file, command = rin_service_areas_geojson, format = "file"),
+  tar_target(rin_service_areas_s3, write_data_to_s3("cori-risi-apps", "rin_service_areas.geojson", rin_service_areas_geojson_file))
 )