use UK spelling of colour

R/xaringanthemer-package.R

 # I looked up these ggplot geom aesthetic defaults manually via e.g.
 # ggplot2::geom_line()$geom$default_aes
 xaringanthemer_env$std_ggplot_defaults <- list(
-  "line"       = list(color  = "black"),
-  "vline"      = list(color  = "black"),
-  "hline"      = list(color  = "black"),
-  "abline"     = list(color  = "black"),
-  "segment"    = list(color  = "black"),
+  "line"       = list(colour  = "black"),
+  "vline"      = list(colour  = "black"),
+  "hline"      = list(colour  = "black"),
+  "abline"     = list(colour  = "black"),
+  "segment"    = list(colour  = "black"),
   "bar"        = list(fill   = "grey35"),
   "col"        = list(fill   = "grey35"),
-  "boxplot"    = list(color  = "grey20", fill = "white"),
-  "contour"    = list(color  = "#3366FF"),
-  "density"    = list(color  = "black",
+  "boxplot"    = list(colour  = "grey20", fill = "white"),
+  "contour"    = list(colour  = "#3366FF"),
+  "density"    = list(colour  = "black",
     fill   = NA,
     alpha  = NA),
-  "dotplot"    = list(color  = "black"),
-  "errorbarh"  = list(color  = "black"),
-  "crossbar"   = list(color  = "black"),
-  "errorbar"   = list(color  = "black"),
-  "linerange"  = list(color  = "black"),
-  "pointrange" = list(color  = "black"),
-  "map"        = list(color  = "black"),
-  "path"       = list(color  = "black"),
-  "line"       = list(color  = "black"),
-  "step"       = list(color  = "black"),
-  "point"      = list(color  = "black"),
-  "polygon"    = list(color  = NA,
+  "dotplot"    = list(colour  = "black"),
+  "errorbarh"  = list(colour  = "black"),
+  "crossbar"   = list(colour  = "black"),
+  "errorbar"   = list(colour  = "black"),
+  "linerange"  = list(colour  = "black"),
+  "pointrange" = list(colour  = "black"),
+  "map"        = list(colour  = "black"),
+  "path"       = list(colour  = "black"),
+  "line"       = list(colour  = "black"),
+  "step"       = list(colour  = "black"),
+  "point"      = list(colour  = "black"),
+  "polygon"    = list(colour  = NA,
     fill   = "grey20"),
-  "quantile"   = list(color  = "#3366FF"),
-  "rug"        = list(color  = "black"),
-  "segment"    = list(color  = "black"),
+  "quantile"   = list(colour  = "#3366FF"),
+  "rug"        = list(colour  = "black"),
+  "segment"    = list(colour  = "black"),
   "smooth"     = list(fill   = "grey60",
-    color  = "#3366FF"),
-  "spoke"      = list(color  = "black"),
-  "label"      = list(color  = "black",
+    colour  = "#3366FF"),
+  "spoke"      = list(colour  = "black"),
+  "label"      = list(colour  = "black",
     family = ""),
-  "text"       = list(color  = "black",
+  "text"       = list(colour  = "black",
     family = ""),
   "rect"       = list(fill   = "grey35"),
   "tile"       = list(fill   = "grey20"),
-  "violin"     = list(fill   = "white", color = "grey20")
+  "violin"     = list(fill   = "white", colour = "grey20")
 )