From ed7ca7a882f5b12a31951fa53891d82b6331380e Mon Sep 17 00:00:00 2001 From: chantelwetzel-noaa Date: Wed, 11 Dec 2024 22:00:08 +0000 Subject: [PATCH] style and docs: run devtools::document() and styler::style_pkg() --- R/get_biological_data.R | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/R/get_biological_data.R b/R/get_biological_data.R index 38706c1..39b83e7 100644 --- a/R/get_biological_data.R +++ b/R/get_biological_data.R @@ -91,11 +91,14 @@ get_biological_data <- function( if (dim(ci_not_met)[1] > 0) { remove <- NULL for (f in 1:dim(ci_not_met)[1]) { - remove <- c(remove, + remove <- c( + remove, which( data[, "fleet"] == ci_not_met[f, "fleet"] & - data[, "year"] == ci_not_met[f, "year"] & - data[, "catch_shares"] == ci_not_met[f, "catch_shares"] )) + data[, "year"] == ci_not_met[f, "year"] & + data[, "catch_shares"] == ci_not_met[f, "catch_shares"] + ) + ) } data <- data[-remove, ] cli::cli_inform(