assets/bts_geopackages/make_regional_shapefiles.R

In afsc-gap-products/akgfmaps: Alaska Groundfish and Ecosystem Survey Area Mapping

# Generate zip files with regional shapefiles
# Run for every new release or when shapefiles are updated
library(akgfmaps)

todays_date <- gsub(x = Sys.Date(), pattern = "-", replacement = "")

akgfmaps::generate_region_zip(select.region = "nbs",
                              zip.path = here::here("assets", "bts_geopackages", paste0("akgfmaps_nbs_", todays_date, ".zip")))
akgfmaps::generate_region_zip(select.region = "sebs",
                              zip.path = here::here("assets", "bts_geopackages", paste0("akgfmaps_sebs_", todays_date, ".zip")))
akgfmaps::generate_region_zip(select.region = "ebs.slope",
                              zip.path = here::here("assets", "bts_geopackages", paste0("akgfmaps_ebsslope_", todays_date, ".zip")))
akgfmaps::generate_region_zip(select.region = "goa",
                              zip.path = here::here("assets", "bts_geopackages", paste0("akgfmaps_goa_", todays_date, ".zip")))
akgfmaps::generate_region_zip(select.region = "ai",
                              zip.path = here::here("assets", "bts_geopackages", paste0("akgfmaps_ai_", todays_date, ".zip")))
akgfmaps::generate_region_zip(select.region = "ecs",
                              zip.path = here::here("assets", "bts_geopackages", paste0("akgfmaps_chukchi_", todays_date, ".zip")))