plotly

Author: gordonwoodhull

DESCRIPTION

@@ -33,6 +33,7 @@ Suggests:
     ggplot2,
     gt,
     knitr,
+    plotly,
     rsconnect (>= 0.8.26),
     testthat (>= 3.1.7),
     withr,

R/theme.R

@@ -73,7 +73,6 @@ ggplot_theme_brand <- function(brand_yml) {
 }
 
 
-
 #' Create a gt theme using background and foreground colors
 #'
 #' Create a gt theme that uses the specified background and
@@ -103,3 +102,33 @@ gt_theme_brand <- function(brand_yml) {
   brand <- yaml::yaml.load_file(brand_yml)
   gt_theme_colors(brand$color$background, brand$color$foreground)
 }
+
+#' Create a plotly theme using background and foreground colors
+#'
+#' Create a plotly theme that uses the specified background and
+#' foreground colors.
+#'
+#' @param bg The background color
+#' @param fg The foreground color
+#'
+#' @export
+plotly_theme_colors <- function(bg, fg) {
+  (function(plot) {
+    plot |> plotly::layout(paper_bgcolor = bg,
+      plot_bgcolor = bg,
+      font = list(color = fg)
+    )
+  })
+}
+
+#' Create a plotly theme from a brand.yml file
+#'
+#' Create a plotly theme that uses colors from the brand file.
+#'
+#' @param brand_yml The path to the brand.yml file
+#'
+#' @export
+plotly_theme_brand <- function(brand_yml) {
+  brand <- yaml::yaml.load_file(brand_yml)
+  plotly_theme_colors(brand$color$background, brand$color$foreground)
+}