update seagrass transect data for 2023

tbep-tech · Dec 6, 2023 · edfd56c · edfd56c
1 parent 2161bb2
commit edfd56c
Show file tree

Hide file tree

Showing 15 changed files with 18 additions and 18 deletions.
diff --git a/R/anlz_transectave.R b/R/anlz_transectave.R
@@ -22,7 +22,7 @@
 #' }
 #' transectocc <- anlz_transectocc(transect)
 #' anlz_transectave(transectocc)
-anlz_transectave <- function(transectocc, bay_segment = c('OTB', 'HB', 'MTB', 'LTB', 'BCB'), total = TRUE, yrrng = c(1998, 2022), rev = FALSE){
+anlz_transectave <- function(transectocc, bay_segment = c('OTB', 'HB', 'MTB', 'LTB', 'BCB'), total = TRUE, yrrng = c(1998, 2023), rev = FALSE){
 
   # sanity checks
   stopifnot(length(yrrng) == 2)

diff --git a/R/anlz_transectavespp.R b/R/anlz_transectavespp.R
@@ -23,7 +23,7 @@
 #' }
 #' transectocc <- anlz_transectocc(transect)
 #' anlz_transectavespp(transectocc)
-anlz_transectavespp <- function(transectocc, bay_segment = c('OTB', 'HB', 'MTB', 'LTB', 'BCB'), yrrng = c(1998, 2022),
+anlz_transectavespp <- function(transectocc, bay_segment = c('OTB', 'HB', 'MTB', 'LTB', 'BCB'), yrrng = c(1998, 2023),
                                 species = c('Halodule', 'Syringodium', 'Thalassia', 'Ruppia', 'Halophila', 'Caulerpa'),
                                 total = TRUE, by_seg = FALSE){
 

diff --git a/R/show_transect.R b/R/show_transect.R
@@ -42,7 +42,7 @@
 #'   species = c('Halodule', 'Syringodium', 'Thalassia', 'Halophila', 'Ruppia', 'Caulerpa'),
 #'   varplo = 'Abundance', facet = TRUE)
 show_transect <- function(transect, site, species = c('Halodule', 'Syringodium', 'Thalassia', 'Halophila', 'Ruppia', 'Caulerpa'),
-                          yrrng = c(1998, 2022), varplo = c('Abundance', 'Blade Length', 'Short Shoot Density'), base_size = 12,
+                          yrrng = c(1998, 2023), varplo = c('Abundance', 'Blade Length', 'Short Shoot Density'), base_size = 12,
                           facet = FALSE, ncol = NULL, plotly = FALSE, width = NULL, height = NULL, sppcol = NULL){
 
   # species pool

diff --git a/R/show_transectavespp.R b/R/show_transectavespp.R
@@ -33,7 +33,7 @@
 #' }
 #' transectocc <- anlz_transectocc(transect)
 #' show_transectavespp(transectocc)
-show_transectavespp <- function(transectocc, bay_segment = c('OTB', 'HB', 'MTB', 'LTB', 'BCB'), yrrng = c(1998, 2022),
+show_transectavespp <- function(transectocc, bay_segment = c('OTB', 'HB', 'MTB', 'LTB', 'BCB'), yrrng = c(1998, 2023),
                                 species = c('Halodule', 'Syringodium', 'Thalassia', 'Halophila', 'Ruppia', 'Caulerpa'),
                                 total = TRUE, alph = 1, family = NA, plotly = FALSE, asreact = FALSE, width = NULL,
                                 height = NULL, sppcol = NULL){

diff --git a/R/show_transectmatrix.R b/R/show_transectmatrix.R
@@ -36,7 +36,7 @@
 #' transectocc <- anlz_transectocc(transect)
 #' show_transectmatrix(transectocc)
 show_transectmatrix <- function(transectocc, bay_segment = c('OTB', 'HB', 'MTB', 'LTB', 'BCB'), total = TRUE, neutral = FALSE,
-                                yrrng = c(1998, 2022), alph = 1, txtsz = 3, family = NA, rev = FALSE, position = 'top',
+                                yrrng = c(1998, 2023), alph = 1, txtsz = 3, family = NA, rev = FALSE, position = 'top',
                                 plotly = FALSE, width = NULL, height = NULL){
 
   # annual average by segment

diff --git a/R/show_transectsum.R b/R/show_transectsum.R
@@ -23,7 +23,7 @@
 #' transectocc <- anlz_transectocc(transect)
 #' show_transectsum(transectocc, site = 'S3T10')
 show_transectsum <- function(transectocc, site, species = c('Halodule', 'Syringodium', 'Thalassia', 'Halophila', 'Ruppia', 'Caulerpa'),
-                             yrrng = c(1998, 2022), abund = FALSE, sppcol = NULL){
+                             yrrng = c(1998, 2023), abund = FALSE, sppcol = NULL){
 
   # species pool
   spp <- c('Halodule', 'Syringodium', 'Thalassia', 'Halophila', 'Ruppia', 'Caulerpa')

diff --git a/R/transect.R b/R/transect.R
@@ -1,8 +1,8 @@
-#' Seagrass transect data for Tampa Bay current as of 12122022
+#' Seagrass transect data for Tampa Bay current as of 12062023
 #'
-#' Seagrass transect data for Tampa Bay current as of 12122022
+#' Seagrass transect data for Tampa Bay current as of 12062023
 #'
-#' @format A data frame with 146286 rows and 11 variables:
+#' @format A data frame with 152580 rows and 11 variables:
 #' \describe{
 #'   \item{Crew}{chr}
 #'   \item{MonitoringAgency}{chr}

diff --git a/data/transect.RData b/data/transect.RData
diff --git a/man/anlz_transectave.Rd b/man/anlz_transectave.Rd
diff --git a/man/anlz_transectavespp.Rd b/man/anlz_transectavespp.Rd
diff --git a/man/show_transect.Rd b/man/show_transect.Rd
diff --git a/man/show_transectavespp.Rd b/man/show_transectavespp.Rd
diff --git a/man/show_transectmatrix.Rd b/man/show_transectmatrix.Rd
diff --git a/man/show_transectsum.Rd b/man/show_transectsum.Rd
diff --git a/man/transect.Rd b/man/transect.Rd