From 3f93426051543edbb8b59f233ebd0aea1819bdde Mon Sep 17 00:00:00 2001 From: sbreitbart-NOAA <181890943+sbreitbart-NOAA@users.noreply.github.com> Date: Thu, 1 Oct 2026 13:52:46 +0000 Subject: [PATCH] style and docs: run devtools::document() and style with styler or air --- R/plot_stock_recruitment.R | 2 +- R/table_total_catch.R | 8 +++++--- 2 files changed, 6 insertions(+), 4 deletions(-) diff --git a/R/plot_stock_recruitment.R b/R/plot_stock_recruitment.R index a7dbe279..aa0f60f6 100644 --- a/R/plot_stock_recruitment.R +++ b/R/plot_stock_recruitment.R @@ -100,7 +100,7 @@ plot_stock_recruitment <- function( # Extract spawning biomass sb <- filter_data( dat = dat |> - dplyr::filter(!is.na(year)), + dplyr::filter(!is.na(year)), label_name = "spawning biomass", geom = "point", era = era, diff --git a/R/table_total_catch.R b/R/table_total_catch.R index 8c1f79a5..9170ad58 100644 --- a/R/table_total_catch.R +++ b/R/table_total_catch.R @@ -58,9 +58,11 @@ table_total_catch <- function( # Filter data for catch prepared_data <- filter_data( dat = dat |> - dplyr::filter(!is.na(year), - !is.na(estimate), - label %in% c("catch_retained", "catch_dead", "catch_selected", "catch")), + dplyr::filter( + !is.na(year), + !is.na(estimate), + label %in% c("catch_retained", "catch_dead", "catch_selected", "catch") + ), label_name = "^catch", geom = "line", era = era,