data-raw/ProcessGIS_Eco3_ORWA_BCGproj.R

In leppott/BCGcalc: Biological Condition Gradient, calculator

# Transform GIS Data
# Eco3_ORWA
# Erik.Leppo@tetratech.com
# 2023-09-25
#~~~~~~~~~~~~~~~~~~~~~~~~
# Hard Drive space low so keep raw data on external drive
#~~~~~~~~~~~~~~~~~~~~~~~~
# Save GIS shapefile as RDA
# saves space and should load quicker
#~~~~~~~~~~~~~~~~~~~~~~~~
# Data files using same projection as map in Shiny where using the data
# NAD83, North America
#~~~~~~~~~~~~~~~~~~~~~~~~
# slightly different version with BCG TRUE/FALSE
# 20231017

# 0. Prep----
#wd <- getwd() # assume is package directory
# library(usethis)
# library(sf) # replace rgdal
# library(ggplot2)

# myFile <- "Eco3_ORWA_clip" # 1.98 MB to 0.377 MB
# myFile <- "L3eco_ORWA_MaritimeBCG" # 1.98 MB to 1.4 MB

# 1. Get data and process----
fn_shp <- file.path("G:", "BCG", "GIS", "data")
ogr_shp <- sf::st_read(dsn = fn_shp, layer = "L3eco_ORWA_MaritimeBCG_proj")
fort_shp <- ggplot2::fortify(ogr_shp)
# 1.97 MB

# 2. Save as RDA for use in package----
data_GIS_eco3_orwa_bcg <- fort_shp
usethis::use_data(data_GIS_eco3_orwa_bcg, overwrite = TRUE)
# 1.5 MB