updating alt text and captions after double-checking consistency and …

…accuracy

R/write_captions.R

@@ -130,8 +130,8 @@ write_captions <- function(dat, # converted model output object
   # caa_age_max <- # maximum age group
 
   ## CAL (catch at length)
-  # cal_age_min <- # minimum age group
-  # cal_age_max <- # maximum age group
+  # cal_length_min <- # minimum length group
+  # cal_length_max <- # maximum length group
 
   ## CPUE indices plot
   # cpue_start_year <- # start year of CPUE indices plot
@@ -209,14 +209,16 @@ write_captions <- function(dat, # converted model output object
   # ssb_units <- # ssb units (plural)
   # ssb_min <- # minimum ssb
   # ssb_max <- # maximum ssb
-  # ssb_ref_pt <- # ssb reference point units
+  # ssb_ref_pt <- # ssb reference point
   # ssb_ref_pt_units <- # ssb reference point units
 
   ## spr (spawning potential ratio)
   # spr_start_year <- # start year of spr plot
   # spr_end_year <- # end year of spr plot
   # spr_min <- # minimum spr
   # spr_max  <- # maximum spr
+  # spr_ref_pt <- # spr reference point
+  # spr_ref_pt_units <- # spr reference point units
 
   ## pop_naa_baa (population numbers at age and population biomass at age)
   # pop_naa_baa_start_year <- # start year of spr plot
@@ -237,6 +239,8 @@ write_captions <- function(dat, # converted model output object
   # proj_biomass_end_year <- # end year of projected biomass plot
   # proj_biomass_min <- # minimum projected biomass
   # proj_biomass_max <- # maximum projected biomass
+  # proj_biomass_ref_pt <- # projected biomass reference point
+  # proj_biomass_ref_pt_units <- # projected biomass reference point units
 
   ## Other
   # tot_catch <-