Change mono_accent default color to #43418A

R/mono_accent.R

@@ -1,4 +1,4 @@
-#' @param base_color Monotone Base Color, works best with a strong color., defaults to #23395b
+#' @param base_color Monotone Base Color, works best with a strong color., defaults to #43418A
 #' @param white_color Brightest color used, defaults to #FFFFFF
 #' @param black_color Darkest color used, defaults to #272822
 #' @param text_color Text Color, defaults to `black_color`
@@ -48,7 +48,7 @@
 #' @family Monotone themes
 #' @export
 mono_accent <- function(
-  base_color = "#23395b",
+  base_color = "#43418A",
   white_color = "#FFFFFF",
   black_color = "#272822",
   text_color = black_color,

R/theme_settings.R

@@ -102,7 +102,7 @@ template_mono_dark <- set_default(
 
 template_mono_accent <- tibble::tribble(
   ~ variable, ~ default, ~ element, ~ description
-  , "base_color", "#23395b", "multiple", "Monotone Base Color, works best with a strong color."
+  , "base_color", "#43418A", "multiple", "Monotone Base Color, works best with a strong color."
   , "white_color", "#FFFFFF", "multiple", "Brightest color used"
   , "black_color", "#272822", "multiple", "Darkest color used"
 )

man/mono_accent.Rd

@@ -4,7 +4,7 @@
 \alias{mono_accent}
 \title{Monotone Accent Theme}
 \usage{
-mono_accent(base_color = "#23395b", white_color = "#FFFFFF",
+mono_accent(base_color = "#43418A", white_color = "#FFFFFF",
   black_color = "#272822", text_color = black_color,
   header_color = base_color, background_color = white_color,
   link_color = base_color, text_bold_color = base_color,
@@ -36,7 +36,7 @@ mono_accent(base_color = "#23395b", white_color = "#FFFFFF",
   outfile = "xaringan-themed.css")
 }
 \arguments{
-\item{base_color}{Monotone Base Color, works best with a strong color., defaults to #23395b}
+\item{base_color}{Monotone Base Color, works best with a strong color., defaults to #43418A}
 
 \item{white_color}{Brightest color used, defaults to #FFFFFF}