flextable

Author: gordonwoodhull

DESCRIPTION

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

R/theme.R

@@ -38,3 +38,36 @@ ggplot_theme_brand <- function(brand_yml) {
   brand <- yaml::yaml.load_file(brand_yml)
   ggplot_theme_colors(brand$color$background, brand$color$foreground)
 }
+
+
+#' Create a flextable theme using background and foreground colors
+#'
+#' Create a flextable theme that uses the specified background and
+#' foreground colors.
+#'
+#' @param bg The background color
+#' @param fg The foreground color
+#'
+#' @export
+flextable_theme_colors <- function(bg, fg) {
+  (function(x) {
+    if (!inherits(x, "flextable")) {
+      stop("flextable_theme_colors only supports flextable objects.")
+    }
+    x <- flextable::bg(x, bg = bg, part = "all")
+    x <- flextable::color(x, color = fg, part = "all")
+    flextable::autofit(x)
+  })
+}
+
+#' Create a flextable theme from a brand.yml file
+#'
+#' Create a flextable theme that uses colors from the brand file.
+#'
+#' @param brand_yml The path to the brand.yml file
+#'
+#' @export
+flextable_theme_brand <- function(brand_yml) {
+  brand <- yaml::yaml.load_file(brand_yml)
+  flextable_theme_colors(brand$color$background, brand$color$foreground)
+}