fix: minor fixes to get plot_recruitment and plot_spawning_biomass to…

… work; used devtools::check, which updated .Rd files
nmfs-ost · Nov 13, 2024 · 8fd15da · 8fd15da
1 parent cae3e65
commit 8fd15da
Show file tree

Hide file tree

Showing 10 changed files with 48 additions and 12 deletions.
diff --git a/R/plot_biomass.R b/R/plot_biomass.R
@@ -136,7 +136,8 @@ plot_total_biomass <- function(dat,
     export_rda(plt_fin = plt_fin,
                caps_alttext = caps_alttext,
                rda_folder = rda_folder,
-               topic_label = topic_label)
+               topic_label = topic_label,
+               fig_or_table = fig_or_table)
 
   }
 

diff --git a/R/plot_recruitment.R b/R/plot_recruitment.R
@@ -195,7 +195,8 @@ plot_recruitment <- function(dat,
     export_rda(plt_fin = plt_fin,
                caps_alttext = caps_alttext,
                rda_folder = rda_folder,
-               topic_label = topic_label)
+               topic_label = topic_label,
+               fig_or_table = fig_or_table)
 
   }
 

diff --git a/R/plot_spawning_biomass.R b/R/plot_spawning_biomass.R
@@ -28,7 +28,7 @@ plot_spawning_biomass <- function(
   ref_line = c("target", "unfished"),
   end_year = NULL,
   relative = FALSE,
-  export_rda = FALSE,
+  make_rda = FALSE,
   rda_folder = getwd()
 ) {
 
@@ -145,12 +145,13 @@ plot_spawning_biomass <- function(
     )
 
   # export figure to rda if argument = T
-  if (export_rda == TRUE){
+  if (make_rda == TRUE){
 
     export_rda(plt_fin = plt_fin,
                caps_alttext = caps_alttext,
                rda_folder = rda_folder,
-               topic_label = topic_label)
+               topic_label = topic_label,
+               fig_or_table = fig_or_table)
   }
 
   return(plt_fin)

diff --git a/R/table_indices.R b/R/table_indices.R
@@ -55,7 +55,8 @@ table_indices <- function(dat,
     export_rda(plt_fin = plt_fin,
                caps_alttext = caps_alttext,
                rda_folder = rda_folder,
-               topic_label = topic_label)
+               topic_label = topic_label,
+               fig_or_table = fig_or_table)
 
   }
 

diff --git a/R/utils.R b/R/utils.R
@@ -39,7 +39,8 @@ extract_caps_alttext <- function(topic_label,
 export_rda <- function(plt_fin = plt_fin,
                        caps_alttext = caps_alttext,
                        rda_folder = rda_folder,
-                       topic_label = topic_label){
+                       topic_label = topic_label,
+                       fig_or_table = fig_or_table){
 
   # make rda for figures
   if (fig_or_table == "figure") {

diff --git a/man/plot_landings.Rd b/man/plot_landings.Rd
diff --git a/man/plot_recruitment.Rd b/man/plot_recruitment.Rd
diff --git a/man/plot_spawning_biomass.Rd b/man/plot_spawning_biomass.Rd
diff --git a/man/plot_total_biomass.Rd b/man/plot_total_biomass.Rd
diff --git a/man/table_indices.Rd b/man/table_indices.Rd