update stat_locs and add data-raw for recreate

.Rbuildignore

@@ -18,3 +18,4 @@
 ^pkgdown$
 ^codecov\.yml$
 ^CRAN-SUBMISSION$
+^data-raw$

DESCRIPTION

@@ -2,7 +2,7 @@ Package: SWMPr
 Type: Package
 Title: Retrieving, Organizing, and Analyzing Estuary Monitoring Data
 Version: 2.5.0
-Date: 2023-07-16
+Date: 2023-06-24
 Author: Marcus W. Beck [aut, cre],
   Kimberly Cressman [ctb]
 Maintainer: Marcus W. Beck <[email protected]>

R/swmpr_misc.R

@@ -1,6 +1,6 @@
 #' Locations of NERRS sites
 #'
-#' Location of NERRS sites in decimal degress and time offset from Greenwich mean time.  Only active sites as of January 2015 are included.  Sites are identified by five letters indexing the reserve and site names.  The dataset is used to plot locations with the \code{\link{map_reserve}} function and to identify metabolic days with the \code{\link{ecometab}} function. 
+#' Location of NERRS sites in decimal degrees and time offset from Greenwich mean time.  Only active sites are included.  Sites are identified by five letters indexing the reserve and site names.  The dataset is used to plot locations with the \code{\link{map_reserve}} function and to identify metabolic days with the \code{\link{ecometab}} function.  Created from sampling_locations.csv provided by CDMO. 
 #' 
 #' @format A \code{\link[base]{data.frame}} object with 161 rows and 4 variables:
 #' \describe{

data-raw/stat_locs.R

@@ -0,0 +1,17 @@
+
+stat_locs <- readr::read_csv('data-raw/sampling_stations.csv') |> 
+  dplyr::filter(Status == 'Active') |> 
+  dplyr::select(
+    station_code = `Station Code`, 
+    latitude = Latitude,
+    longitude = Longitude,
+    gmt_off = `GMT Offset`
+  ) |> 
+  dplyr::mutate(
+    station_code = substr(station_code, 1, 5), 
+    latitude = as.numeric(latitude), 
+    longitude = -1 * as.numeric(longitude)
+  ) |> 
+  dplyr::distinct()
+
+usethis::use_data(stat_locs, overwrite = TRUE)