data-raw/herring-predators-HG/herring-predators-HG-areas.R

In pbs-assess/gfiphc: Data Extraction and Analysis for Groundfish Data from the IPHC Longline Survey in BC

# herring-predators-HG-areas.R - defining the areas of interest for predators of
#  Haida Gwaii Pacific Herring. These are to generate indices of abundance for
#  the DFO Ecosystem Approach to Fisheries Management Case Study.

# AreaOfInterest.zip - shape files from Jennifer Boldt, as used for hake (so maybe from
#  Stephane originally?), including BCMap.png and AreaOfInterest.*.
#
# AlI-2100420.7z - adapted files from Rowan, including mergePolys.r and
#  AoI.*. Note that he also extracted some manually from the .csv file, so am
#  just importing and saving the relevant file here.

# Andy's original code before Rowan did it in mergePolys.r. Worked but Rowan had
# to fix some of the spurious extra lines (he thought they might be islands on
# lakes on islands in the sea.... :
#
# herring_polys <- PBSmapping::importShapefile("herring-predators-HG/AreaOfInterest.shp")
# plot_BC()
# PBSmapping::addPolys(herring_polys)
## That's many polygons, can join them together:
# herring_HG_area <- PBSmapping::joinPolys(herring_polys, op="UNION")
# plot_BC()
# PBSmapping::addPolys(herring_HG_area, col = "red", )


load("AoI.rda")

HG_herring_pred_area <- AoI

usethis::use_data(HG_herring_pred_area,
                  overwrite = TRUE)