Skip to content

Commit

Permalink
Merge pull request #25 from pfmc-assessments/style-doc-code
Browse files Browse the repository at this point in the history
Style code and document
  • Loading branch information
chantelwetzel-noaa authored Dec 11, 2024
2 parents c87fcdb + ed7ca7a commit 69ba63e
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 69ba63e

Please sign in to comment.