data-raw/fin_whale_habitat.R

In ericmkeen/shipstrike: Utilities for spatially- and temporally-explicit predictions of whale-ship collisions

fwh <-
"-129.32350158691406,53.05607268392864
-129.3042755126953,53.05524728260057
-129.28504943847656,53.061850050514025
-129.28024291992188,53.07010208747327
-129.28504943847656,53.08123982966911
-129.2932891845703,53.09319938092189
-129.30633544921875,53.10020860733853
-129.3303680419922,53.11051421895213
-129.34616088867188,53.13276591360896
-129.35028076171875,53.15418258582586
-129.35508728027344,53.17600012930024
-129.35165405273438,53.190401860911884
-129.3489074707031,53.210144943955406
-129.3248748779297,53.22330194749886
-129.3097686767578,53.23933158223226
-129.28985595703125,53.24878214338736
-129.2699432373047,53.266034304965714
-129.2658233642578,53.2738365684154
-129.27062988281247,53.2906681806202
-129.2809295654297,53.30174879297147
-129.28848266601562,53.31979992850456
-129.31045532226562,53.31856941172296
-129.32693481445312,53.30790344668577
-129.3255615234375,53.29436203746641
-129.30633544921875,53.28779496002343
-129.3029022216797,53.27588955899134
-129.32350158691406,53.25905212543231
-129.36264038085938,53.23193403502995
-129.37774658203125,53.23275604784946
-129.38392639160156,53.246316980814704
-129.38735961914062,53.26315942792131
-129.38323974609375,53.277531880460636
-129.3695068359375,53.28574254129316
-129.3695068359375,53.29230993420693
-129.39285278320312,53.29436203746641
-129.4182586669922,53.29436203746641
-129.4182586669922,53.3038004427794
-129.43336486816406,53.30913427097519
-129.45396423339844,53.3066725869125
-129.4676971435547,53.291489065300226
-129.4841766357422,53.27876358015161
-129.49790954589844,53.26521293124656
-129.49928283691406,53.253301239242234
-129.49241638183594,53.24467346019639
-129.48692321777344,53.23111200642741
-129.48829650878906,53.21713510525024
-129.49722290039062,53.207677555890015
-129.51370239257812,53.20356492670638
-129.51026916503906,53.19616119954287
-129.49310302734375,53.193693006293906
-129.4786834716797,53.186287573913305
-129.46975708007812,53.166533500950905
-129.4525909423828,53.15747651067802
-129.4457244873047,53.14429929485432
-129.4237518310547,53.135649549214286
-129.4086456298828,53.11875693043109
-129.39559936523435,53.10309442749721
-129.37088012695312,53.083714492247026
-129.34341430664062,53.06556366279212
-129.32350158691406,53.05607268392864"

fwh
splits <- stringr::str_split(fwh,'\n')[[1]]
splits <- stringr::str_split(splits,',')
x <- lapply(splits,'[[',1) %>% unlist
y <- lapply(splits,'[[',2) %>% unlist
fin_whale_habitat <- data.frame(x,y)
fin_whale_habitat
usethis::use_data(fin_whale_habitat, overwrite = TRUE)