Warn if colors used by theme_xaringan() are not in hex format

R/style_xaringan.R

@@ -366,6 +366,31 @@ style_xaringan <- function(
     )
   }
   
+  # If certain colors aren't in hexadecimal it may cause problems with theme_xaringan()
+  # TODO: at some point I'd rather be able to process CSS colors or variables
+  colors_used_by_theme_xaringan <- list(
+    background_color = background_color,
+    text_color = text_color,
+    header_color = header_color,
+    text_bold_color = text_bold_color,
+    inverse_background_color = inverse_background_color,
+    inverse_text_color = inverse_text_color,
+    inverse_header_color = inverse_header_color
+  )
+  colors_used_by_theme_xaringan <- purrr::discard(colors_used_by_theme_xaringan, is.null)
+  colors_are_hex <- purrr::map_lgl(colors_used_by_theme_xaringan, check_color_is_hex, throw = NULL)
+  
+  if (any(!colors_are_hex)) {
+    colors_better_as_hex <- names(colors_used_by_theme_xaringan)[!colors_are_hex]
+    colors_better_as_hex <- paste(colors_better_as_hex, collapse = ", ")
+    warning(
+      glue::glue("Colors that will be used by `theme_xaringan()` need to be in ",
+                 "hexadecimal format: {colors_better_as_hex}"),
+      immediate. = TRUE,
+      call. = FALSE
+    )
+  }
+  
   # Use font_..._google args to overwrite font args
   for (var in f_args[grepl("font_google$", f_args)]) {
     gf <- eval(parse(text = var))

inst/scripts/style_xaringan_body.R

@@ -50,6 +50,31 @@ if (!grepl(paste(tolower(css_abs_units), collapse = "|"), tolower(base_font_size
   )
 }
 
+# If certain colors aren't in hexadecimal it may cause problems with theme_xaringan()
+# TODO: at some point I'd rather be able to process CSS colors or variables
+colors_used_by_theme_xaringan <- list(
+  background_color = background_color,
+  text_color = text_color,
+  header_color = header_color,
+  text_bold_color = text_bold_color,
+  inverse_background_color = inverse_background_color,
+  inverse_text_color = inverse_text_color,
+  inverse_header_color = inverse_header_color
+)
+colors_used_by_theme_xaringan <- purrr::discard(colors_used_by_theme_xaringan, is.null)
+colors_are_hex <- purrr::map_lgl(colors_used_by_theme_xaringan, check_color_is_hex, throw = NULL)
+
+if (any(!colors_are_hex)) {
+  colors_better_as_hex <- names(colors_used_by_theme_xaringan)[!colors_are_hex]
+  colors_better_as_hex <- paste(colors_better_as_hex, collapse = ", ")
+  warning(
+    glue::glue("Colors that will be used by `theme_xaringan()` need to be in ",
+               "hexadecimal format: {colors_better_as_hex}"),
+    immediate. = TRUE,
+    call. = FALSE
+  )
+}
+
 # Use font_..._google args to overwrite font args
 for (var in f_args[grepl("font_google$", f_args)]) {
   gf <- eval(parse(text = var))

tests/testthat/test-themes.R

@@ -98,3 +98,15 @@ test_that("NULL output returns CSS as text", {
   expect_type(xt, "character")
   expect_true(any(grepl("generated by xaringanthemer", xt)))
 })
+
+
+test_that("style_xaringan() warns about non-hex colors used by theme_xaringan()", {
+  expect_error(
+    with_clean_session(function() {
+      options(warn = 2)
+      xaringanthemer::style_xaringan(text_color = "rgb(100, 100, 100)", background_color = "white", outfile = NULL)
+    }),
+    regexp = "Colors.+used by.+theme_xaringan",
+    class = "callr_status_error"
+  )
+})