ggplot theme helpers

Author: gordonwoodhull

DESCRIPTION

@@ -29,6 +29,7 @@ Imports:
     yaml
 Suggests: 
     curl,
+    ggplot2,
     knitr,
     rsconnect (>= 0.8.26),
     testthat (>= 3.1.7),

R/theme.R

@@ -0,0 +1,40 @@
+#' Create a ggplot2 theme using background and foreground colors
+#'
+#' Create a ggplot2 theme that uses the specified background and
+#' foreground colors.
+#'
+#' @param bgcolor The background color
+#' @param fgcolor The foreground color
+#'
+#' @export
+ggplot_theme_colors <- function(bgcolor, fgcolor) {
+  if(!requireNamespace("ggplot2", quietly = TRUE)) {
+    return(NULL)
+  }
+  ggplot2::`%+%`(ggplot2::theme_minimal(base_size = 11),
+    ggplot2::theme(
+      panel.border = ggplot2::element_blank(),
+      panel.grid.major.y = ggplot2::element_blank(),
+      panel.grid.minor.y = ggplot2::element_blank(),
+      panel.grid.major.x = ggplot2::element_blank(),
+      panel.grid.minor.x = ggplot2::element_blank(),
+      text = ggplot2::element_text(colour = fgcolor),
+      axis.text = ggplot2::element_text(colour = fgcolor),
+      rect = ggplot2::element_rect(colour = bgcolor, fill = bgcolor),
+      plot.background = ggplot2::element_rect(fill = bgcolor, colour = NA),
+      axis.line = ggplot2::element_line(colour = fgcolor),
+      axis.ticks = ggplot2::element_line(colour = fgcolor)
+    ))
+}
+
+#' Create a ggplot2 theme from a brand.yml file
+#'
+#' Create a ggplot2 theme that uses colors from the brand file.
+#'
+#' @param brand_yml The path to the brand.yml file
+#'
+#' @export
+ggplot_theme_brand <- function(brand_yml) {
+  brand <- yaml::yaml.load_file(brand_yml)
+  ggplot_theme_colors(brand$color$background, brand$color$foreground)
+}