rename theme_colors_*, theme_brand_*

Author: gordonwoodhull

R/theme.R

@@ -7,10 +7,10 @@
 #' @param fg The foreground color
 #'
 #' @export
-flextable_theme_colors <- function(bg, fg) {
+theme_colors_flextable <- function(bg, fg) {
   (function(x) {
     if (!inherits(x, "flextable")) {
-      stop("flextable_theme_colors only supports flextable objects.")
+      stop("theme_colors_flextable only supports flextable objects.")
     }
     x <- flextable::bg(x, bg = bg, part = "all")
     x <- flextable::color(x, color = fg, part = "all")
@@ -25,9 +25,9 @@ flextable_theme_colors <- function(bg, fg) {
 #' @param brand_yml The path to the brand.yml file
 #'
 #' @export
-flextable_theme_brand <- function(brand_yml) {
+theme_brand_flextable <- function(brand_yml) {
   brand <- yaml::yaml.load_file(brand_yml)
-  flextable_theme_colors(brand$color$background, brand$color$foreground)
+  theme_colors_flextable(brand$color$background, brand$color$foreground)
 }
 
 
@@ -40,7 +40,7 @@ flextable_theme_brand <- function(brand_yml) {
 #' @param fg The foreground color
 #'
 #' @export
-ggplot_theme_colors <- function(bg, fg) {
+theme_colors_ggplot <- function(bg, fg) {
   if (!requireNamespace("ggplot2", quietly = TRUE)) {
     return(NULL)
   }
@@ -67,9 +67,9 @@ ggplot_theme_colors <- function(bg, fg) {
 #' @param brand_yml The path to the brand.yml file
 #'
 #' @export
-ggplot_theme_brand <- function(brand_yml) {
+theme_brand_ggplot <- function(brand_yml) {
   brand <- yaml::yaml.load_file(brand_yml)
-  ggplot_theme_colors(brand$color$background, brand$color$foreground)
+  theme_colors_ggplot(brand$color$background, brand$color$foreground)
 }
 
 
@@ -81,8 +81,8 @@ ggplot_theme_brand <- function(brand_yml) {
 #' @param bg The background color
 #' @param fg The foreground color
 #'
-#' @export
-gt_theme_colors <- function(bg, fg) {
+#' @theme_colors_export
+gt <- function(bg, fg) {
   (function(table) {
     table |>
       gt::tab_options(
@@ -98,9 +98,9 @@ gt_theme_colors <- function(bg, fg) {
 #' @param brand_yml The path to the brand.yml file
 #'
 #' @export
-gt_theme_brand <- function(brand_yml) {
+theme_brand_gt <- function(brand_yml) {
   brand <- yaml::yaml.load_file(brand_yml)
-  gt_theme_colors(brand$color$background, brand$color$foreground)
+  gt(brand$color$background, brand$color$foreground)
 }
 
 #' Create a plotly theme using background and foreground colors
@@ -112,7 +112,7 @@ gt_theme_brand <- function(brand_yml) {
 #' @param fg The foreground color
 #'
 #' @export
-plotly_theme_colors <- function(bg, fg) {
+theme_colors_plotly <- function(bg, fg) {
   (function(plot) {
     plot |> plotly::layout(paper_bgcolor = bg,
       plot_bgcolor = bg,
@@ -128,9 +128,9 @@ plotly_theme_colors <- function(bg, fg) {
 #' @param brand_yml The path to the brand.yml file
 #'
 #' @export
-plotly_theme_brand <- function(brand_yml) {
+theme_brand_plotly <- function(brand_yml) {
   brand <- yaml::yaml.load_file(brand_yml)
-  plotly_theme_colors(brand$color$background, brand$color$foreground)
+  theme_colors_plotly(brand$color$background, brand$color$foreground)
 }
 
 
@@ -143,7 +143,7 @@ plotly_theme_brand <- function(brand_yml) {
 #' @param fg The foreground color
 #'
 #' @export
-thematic_theme_colors <- function(bg, fg) {
+theme_colors_thematic <- function(bg, fg) {
   (function() {
     thematic::thematic_rmd(
       bg = bg,
@@ -158,7 +158,7 @@ thematic_theme_colors <- function(bg, fg) {
 #' @param brand_yml The path to the brand.yml file
 #'
 #' @export
-thematic_theme_brand <- function(brand_yml) {
+theme_brand_thematic <- function(brand_yml) {
   brand <- yaml::yaml.load_file(brand_yml)
-  thematic_theme_colors(brand$color$background, brand$color$foreground)
+  theme_colors_thematic(brand$color$background, brand$color$foreground)
 }