From 60b801c87c0c3ceddf20ad5c29579dcefc6c3968 Mon Sep 17 00:00:00 2001
From: sbreitbart-NOAA <sophie.breitbart@noaa.gov>
Date: Wed, 25 Sep 2024 16:46:55 -0400
Subject: [PATCH] added the nmfspalette package's color palette to the figures
 in the add_theme function

---
 R/add_theme.R | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/R/add_theme.R b/R/add_theme.R
index e7c5fba..40663ab 100644
--- a/R/add_theme.R
+++ b/R/add_theme.R
@@ -33,7 +33,12 @@ add_theme <- function(x) {
         panel.grid = ggplot2::element_blank(),
         panel.border = ggplot2::element_rect(colour = "black", fill = NA, linewidth = 0.5)
         # text = ggplot2::element_text(size = 12, family = "Cambria")
-      )
+      ) +
+      # add nmfs color palette (palette will be default)
+      # I believe including both functions is fine and will
+      # works regardless of the type of plot (one won't be used)
+      nmfspalette::scale_color_nmfs() +
+      nmfspalette::scale_fill_nmfs()
     # Determining how to treat a legend if there is one
     # check if one is present
     # check_for_legend <- function(x) {