Merge pull request #50 from NEFSC/dev

Dev

Author: stephanie-owen

R/create_condition_indicator.R

@@ -139,7 +139,7 @@ species_condition <- function(data,
   condition <- grouped_condition %>%
     dplyr::summarize(
       MeanCond = mean(.data$RelCond),
-      nCond = dplyr::.data$n()
+      nCond = dplyr::n()
     ) |>
     dplyr::ungroup() |>
     dplyr::filter(.data$nCond >= 3) |>
@@ -148,7 +148,7 @@ species_condition <- function(data,
     # group again, without YEAR
     dplyr::group_by(!!!rlang::syms(grouping_vars[-which(grouping_vars == "YEAR")])) |>
     # filter to only species with 20+ years of data
-    dplyr::mutate(n = dplyr::.data$n()) |>
+    dplyr::mutate(n = dplyr::n()) |>
     dplyr::filter(.data$n >= 20) |>
     dplyr::select(-.data$n) |>
     # calculate sd and variance across years
@@ -176,4 +176,4 @@ species_condition <- function(data,
       dplyr::rename(DATA_VALUE = .data$MeanCond)
   }
   return(condition)
-}
+}

R/data.R

@@ -114,5 +114,4 @@
 #'   \item{\code{DOE}}{character COLUMN_DESCRIPTION}
 #'   \item{\code{UOE}}{character COLUMN_DESCRIPTION} 
 #'}
-"species_data"
-> 
+"species_data"