Merge pull request #138 from NOAA-EDAB/dev

update DESCRIPTION with version number 5.0.1

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: ecodata
 Title: Documentation of Ecosystem Indicator Reporting
-Version: 5.0.0
+Version: 5.0.1
 Authors@R: c(person("Brandon", "Beltz", email = "[email protected]", role = c("cre", "aut")),
              person("Kimberly", "Bastille", email = "[email protected]", role = "aut"),
               person("Sean", "Hardison", role = "aut"))

R/plot_habitat_diversity.R

@@ -1,6 +1,6 @@
 #' plot habitat diversity
 #'
-#' Plots ecodata::habitat_diversity (Shanon index)
+#' Plots ecodata::habitat_diversity (Shannon index and species richness)
 #'
 #' @param shadedRegion Numeric vector. Years denoting the shaded region of the plot (most recent 10)
 #' @param report Character string. Which SOE report ("MidAtlantic", "NewEngland")
@@ -130,5 +130,6 @@ plot_habitat_diversity <- function(shadedRegion = NULL,
 
 }
 
+
 attr(plot_habitat_diversity,"varName") <- c("Richness") #removed "Diversity", argument for varName per Laurel's request
 attr(plot_habitat_diversity,"report") <- c("MidAtlantic","NewEngland")

R/plot_productivity_anomaly.R

@@ -22,6 +22,9 @@ plot_productivity_anomaly <- function(shadedRegion = NULL,
   setup <- ecodata::plot_setup(shadedRegion = shadedRegion,
                                report=report)
 
+  # this should be added to plot_setip
+  leg_font_size <- 6
+
   # which report? this may be bypassed for some figures
   if (report == "MidAtlantic") {
     if (varName == "anomaly") {
@@ -59,7 +62,8 @@ plot_productivity_anomaly <- function(shadedRegion = NULL,
     prod<- ecodata::productivity_anomaly |>
       tidyr::separate(Var, into = c("Stock", "Var"), sep = "-")  |>
       dplyr::filter(EPU == filterEPUs,
-                    Var == "rs_anom")
+                    Var == "rs_anom") |>
+      dplyr::mutate(Stock = toupper(Stock))
 
     # code for generating plot object p
     # ensure that setup list objects are called as setup$...
@@ -86,7 +90,8 @@ plot_productivity_anomaly <- function(shadedRegion = NULL,
                      axis.text    = ggplot2::element_text(size = 10),
                      plot.title   = ggplot2::element_text(size = 12),
                      #legend.text  = element_text(size = leg_font_size),
-                     legend.title = ggplot2::element_blank())
+                     legend.title = ggplot2::element_blank(),
+                     legend.text=ggplot2::element_text(size=6))
 
   }
 
@@ -109,6 +114,7 @@ plot_productivity_anomaly <- function(shadedRegion = NULL,
                                     height = 5.5,
                                     width = 9,
                                     filt = FALSE,
+                                    leg_font_size = leg_font_size,
                                     label = "",
                                     y.text = 10,
                                     aggregate = TRUE)
@@ -133,7 +139,7 @@ plot_stackbarcpts_single <- function(YEAR, var2bar,
                                      x, xlab, ylab,
                                      titl,
                                      file_suffix,
-                                     leg_font_size = 6,
+                                     leg_font_size = leg_font_size,
                                      remove_leg = FALSE,
                                      leg_ncol = 1,
                                      wcpts = TRUE,