Merge branch 'master' of https://github.com/tbep-tech/tbeptools

Author: fawda123

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, 2024), rev = FALSE){
+anlz_transectave <- function(transectocc, bay_segment = c('OTB', 'HB', 'MTB', 'LTB', 'BCB'), total = TRUE, yrrng = c(1998, 2025), rev = FALSE){
 
   # sanity checks
   stopifnot(length(yrrng) == 2)

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, 2024),
+anlz_transectavespp <- function(transectocc, bay_segment = c('OTB', 'HB', 'MTB', 'LTB', 'BCB'), yrrng = c(1998, 2025),
                                 species = c('Halodule', 'Syringodium', 'Thalassia', 'Ruppia', 'Halophila', 'Caulerpa', 'Dapis', 'Chaetomorpha'),
                                 total = TRUE, by_seg = FALSE){
 

R/show_compplot.R

@@ -16,7 +16,7 @@
 #'
 #' @examples
 #' transect <- read_transect(training = TRUE)
-#' show_compplot(transect, yr = 2024, site = '3', species = 'Halodule', varplo = 'Abundance')
+#' show_compplot(transect, yr = 2025, site = '3', species = 'Halodule', varplo = 'Abundance')
 show_compplot <- function(transect, yr, site, species = c('Halodule', 'Syringodium', 'Thalassia', 'Halophila', 'Ruppia'),
                           varplo = c('Abundance', 'Blade Length', 'Short Shoot Density'), base_size = 18, xtxt = 10, size = 1){
 

R/show_transect.R

@@ -44,7 +44,7 @@
 #'     'Caulerpa', 'Dapis', 'Chaetomorpha'),
 #'   varplo = 'Abundance', facet = TRUE)
 show_transect <- function(transect, site, species = c('Halodule', 'Syringodium', 'Thalassia', 'Halophila', 'Ruppia', 'Caulerpa', 'Dapis', 'Chaetomorpha'),
-                          yrrng = c(1998, 2024), varplo = c('Abundance', 'Blade Length', 'Short Shoot Density'), base_size = 12,
+                          yrrng = c(1998, 2025), 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

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, 2024),
+show_transectavespp <- function(transectocc, bay_segment = c('OTB', 'HB', 'MTB', 'LTB', 'BCB'), yrrng = c(1998, 2025),
                                 species = c('Halodule', 'Syringodium', 'Thalassia', 'Halophila', 'Ruppia', 'Caulerpa', 'Dapis', 'Chaetomorpha'),
                                 total = TRUE, alph = 1, family = 'sans', plotly = FALSE, asreact = FALSE, width = NULL,
                                 height = NULL, sppcol = NULL){

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, 2024), alph = 1, txtsz = 3, family = 'sans', rev = FALSE, position = 'top',
+                                yrrng = c(1998, 2025), alph = 1, txtsz = 3, family = 'sans', rev = FALSE, position = 'top',
                                 plotly = FALSE, width = NULL, height = NULL){
 
   # annual average by segment

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', 'Dapis', 'Chaetomorpha'),
-                             yrrng = c(1998, 2024), abund = FALSE, sppcol = NULL){
+                             yrrng = c(1998, 2025), abund = FALSE, sppcol = NULL){
 
   # species pool
   spp <- c('Halodule', 'Syringodium', 'Thalassia', 'Halophila', 'Ruppia', 'Caulerpa', 'Dapis', 'Chaetomorpha')

R/transect.R

@@ -1,8 +1,8 @@
-#' Seagrass transect data for Tampa Bay current as of 11032024
+#' Seagrass transect data for Tampa Bay current as of 10292025
 #'
-#' Seagrass transect data for Tampa Bay current as of 11032024
+#' Seagrass transect data for Tampa Bay current as of 10292025
 #'
-#' @format A data frame with 158352 rows and 11 variables:
+#' @format A data frame with 164727 rows and 11 variables:
 #' \describe{
 #'   \item{Crew}{chr}
 #'   \item{MonitoringAgency}{chr}