thematic

Author: gordonwoodhull

DESCRIPTION

@@ -36,6 +36,7 @@ Suggests:
     plotly,
     rsconnect (>= 0.8.26),
     testthat (>= 3.1.7),
+    thematic,
     withr,
     xfun
 VignetteBuilder: 

R/theme.R

@@ -132,3 +132,33 @@ plotly_theme_brand <- function(brand_yml) {
   brand <- yaml::yaml.load_file(brand_yml)
   plotly_theme_colors(brand$color$background, brand$color$foreground)
 }
+
+
+#' Create a thematic theme using background and foreground colors
+#'
+#' Create a thematic theme that uses the specified background and
+#' foreground colors.
+#'
+#' @param bg The background color
+#' @param fg The foreground color
+#'
+#' @export
+thematic_theme_colors <- function(bg, fg) {
+  (function() {
+    thematic::thematic_rmd(
+      bg = bg,
+      fg = fg,
+  )})
+}
+
+#' Create a thematic theme from a brand.yml file
+#'
+#' Create a thematic theme that uses colors from the brand file.
+#'
+#' @param brand_yml The path to the brand.yml file
+#'
+#' @export
+thematic_theme_brand <- function(brand_yml) {
+  brand <- yaml::yaml.load_file(brand_yml)
+  thematic_theme_colors(brand$color$background, brand$color$foreground)
+}