add temperature data for paper

Author: andybeet

data-raw/bottom_temp_survey.rds

@@ -0,0 +1,13 @@
+#' Create Lazy data for OISS bottom temp
+#'
+#' from ecodata::seasonal_oisst_anom
+#'
+
+create_surface_temp_oisst_data <- function() {
+  dataSet <- readRDS(
+    here::here("data-raw", "surface_temp_oisst.rds")
+  )
+
+  surface_temp_oisst <- dataSet
+  usethis::use_data(surface_temp_oisst, overwrite = TRUE)
+}

data-raw/create_bottom_temp_oisst_data.R

@@ -0,0 +1,14 @@
+#' Create Lazy data for survey bottom temp
+#'
+#' from ecodata::bottom_temp_insitu
+#'
+
+create_bottom_temp_survey_data <- function() {
+  dataSet <- readRDS(
+    here::here("data-raw", "bottom_temp_survey.rds")
+  )
+
+  bottom_temp_survey <- dataSet |>
+    dplyr::filter(Time > 2013)
+  usethis::use_data(bottom_temp_survey, overwrite = TRUE)
+}