diff --git a/R/extract_caps_alttext.R b/R/extract_caps_alttext.R index 3ef28bcb..7adafa9c 100644 --- a/R/extract_caps_alttext.R +++ b/R/extract_caps_alttext.R @@ -61,5 +61,5 @@ extract_caps_alttext <- function(topic_label = NULL, caps_alttext_list <- list(cap) } - return(caps_alttext_list) +caps_alttext_list } diff --git a/R/plot_abundance_at_age.R b/R/plot_abundance_at_age.R index ae42f701..48a744a2 100644 --- a/R/plot_abundance_at_age.R +++ b/R/plot_abundance_at_age.R @@ -233,5 +233,5 @@ plot_abundance_at_age <- function( fig_or_table = fig_or_table ) } - return(final) +final } diff --git a/R/plot_biomass.R b/R/plot_biomass.R index 6985a332..b0c639ff 100644 --- a/R/plot_biomass.R +++ b/R/plot_biomass.R @@ -250,5 +250,5 @@ plot_biomass <- function( fig_or_table = fig_or_table ) } - return(final) +final } diff --git a/R/plot_biomass_at_age.R b/R/plot_biomass_at_age.R index 0755fb35..c909056e 100644 --- a/R/plot_biomass_at_age.R +++ b/R/plot_biomass_at_age.R @@ -203,5 +203,5 @@ plot_biomass_at_age <- function( fig_or_table = fig_or_table ) } - return(final) +final } diff --git a/R/plot_indices.R b/R/plot_indices.R index 39befdab..6f1998c6 100644 --- a/R/plot_indices.R +++ b/R/plot_indices.R @@ -201,5 +201,5 @@ plot_indices <- function( fig_or_table = fig_or_table ) } - return(final) +final } diff --git a/R/plot_landings.R b/R/plot_landings.R index 5ca03264..2166315b 100644 --- a/R/plot_landings.R +++ b/R/plot_landings.R @@ -165,5 +165,5 @@ plot_landings <- function(dat, fig_or_table = fig_or_table ) } - return(final) +final } diff --git a/R/plot_recruitment.R b/R/plot_recruitment.R index fbc4870b..1a2409a6 100644 --- a/R/plot_recruitment.R +++ b/R/plot_recruitment.R @@ -183,5 +183,5 @@ plot_recruitment <- function( fig_or_table = fig_or_table ) } - return(final) +final } diff --git a/R/plot_recruitment_deviations.R b/R/plot_recruitment_deviations.R index 7b2695e6..2e97e436 100644 --- a/R/plot_recruitment_deviations.R +++ b/R/plot_recruitment_deviations.R @@ -149,5 +149,5 @@ plot_recruitment_deviations <- function( fig_or_table = fig_or_table ) } - return(final) +final } diff --git a/R/plot_spawn_recruitment.R b/R/plot_spawn_recruitment.R index 15bac116..3fb7b4bc 100644 --- a/R/plot_spawn_recruitment.R +++ b/R/plot_spawn_recruitment.R @@ -138,5 +138,5 @@ plot_spawn_recruitment <- function( fig_or_table = fig_or_table ) } - return(final) +final } diff --git a/R/plot_spawning_biomass.R b/R/plot_spawning_biomass.R index 0b69dce1..c75028ab 100644 --- a/R/plot_spawning_biomass.R +++ b/R/plot_spawning_biomass.R @@ -250,5 +250,5 @@ plot_spawning_biomass <- function( fig_or_table = fig_or_table ) } - return(final) +final } diff --git a/R/ss3_utils.R b/R/ss3_utils.R index 1df383c5..39d636d7 100644 --- a/R/ss3_utils.R +++ b/R/ss3_utils.R @@ -26,7 +26,7 @@ SS3_extract_df <- function(dat, label) { naniar::replace_with_na_all(condition = ~ .x == "") clean_df <- Filter(function(x) !all(is.na(x)), clean_df) - return(clean_df) +clean_df } @@ -44,7 +44,7 @@ SS3_extract_bio_info <- function( skip = skip, quote = "", comment.char = "" )) + 1 - return(nummax) + nummax } output <- utils::read.table( @@ -64,5 +64,5 @@ SS3_extract_bio_info <- function( if (isTRUE(reference.points)) { } - return(bio_info) +bio_info } diff --git a/R/table_bnc.R b/R/table_bnc.R index 6a5cf741..efb67fe3 100644 --- a/R/table_bnc.R +++ b/R/table_bnc.R @@ -193,5 +193,5 @@ table_bnc <- function( ) } # Return finished table - return(final) +final } diff --git a/R/table_indices.R b/R/table_indices.R index 06e718af..e039680f 100644 --- a/R/table_indices.R +++ b/R/table_indices.R @@ -168,5 +168,5 @@ table_indices <- function( fig_or_table = fig_or_table ) } - return(final) +final } diff --git a/R/table_landings.R b/R/table_landings.R index 92316aad..575d6817 100644 --- a/R/table_landings.R +++ b/R/table_landings.R @@ -208,5 +208,5 @@ table_landings <- function(dat, ) } # Return finished table - return(final) +final }