Skip to content

Commit

Permalink
style and docs: run devtools::document() and styler::style_pkg()
Browse files Browse the repository at this point in the history
  • Loading branch information
chantelwetzel-noaa authored Dec 11, 2024
1 parent c87fcdb commit ed7ca7a
Showing 1 changed file with 6 additions and 3 deletions.
9 changes: 6 additions & 3 deletions R/get_biological_data.R
Original file line number Diff line number Diff line change
Expand Up @@ -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(
Expand Down

0 comments on commit ed7ca7a

Please sign in to comment.