add dat arg to B, R, SSB plotting fxns, and add_more_key_quants, to a…

…ddress failing tests

R/plot_biomass.R

@@ -181,6 +181,7 @@ plot_biomass <- function(
 
     # add more key quantities included as arguments in this fxn
     add_more_key_quants(
+      dat,
       topic = topic_label,
       fig_or_table = fig_or_table,
       dir = rda_dir,

R/plot_recruitment.R

@@ -127,6 +127,7 @@ plot_recruitment <- function(
 
     # add more key quantities included as arguments in this fxn
     add_more_key_quants(
+      dat,
       topic = topic_label,
       fig_or_table = fig_or_table,
       dir = rda_dir,

R/plot_spawning_biomass.R

@@ -188,6 +188,7 @@ plot_spawning_biomass <- function(
 
     # add more key quantities included as arguments in this fxn
     add_more_key_quants(
+      dat,
       topic = topic_label,
       fig_or_table = fig_or_table,
       dir = rda_dir,

R/utils.R

@@ -5,6 +5,7 @@
 # substitute in more key quantities (units, end_years, reference points, and more)
 # to captions/alt text
 add_more_key_quants <- function(
+    dat = NULL,
     topic = topic_label,
     fig_or_table = fig_or_table,
     dir = NULL,
@@ -28,6 +29,13 @@ add_more_key_quants <- function(
     dplyr::filter(label == topic,
                   type == fig_or_table)
 
+  if (!is.null(dat)){
+    dat <- dat |>
+      dplyr::mutate(estimate = as.numeric(estimate),
+                    year = as.numeric(year),
+                    age = as.numeric(age))
+  }
+
 
   # calculate key quantities that rely on end_year for calculation
   ## terminal fishing mortality