fix: support custom themes #422

JohnCoene · JohnCoene · commit 19e61a129759 · 2022-04-20T19:34:48.000+02:00
diff --git a/R/themes.R b/R/themes.R
@@ -42,7 +42,8 @@ e_theme <- function(
     "westeros", "wonderland"
   )
 ) {
-  name <- match.arg(name)
+  # cannot match.arg we need to support custom themes
+  name <- name[1]
 
   # add name to register
   e$x$theme <- name

Original file line number	Diff line number	Diff line change
`@@ -42,7 +42,8 @@ e_theme <- function(`
`42`	`42`	`"westeros", "wonderland"`
`43`	`43`	`)`
`44`	`44`	`) {`
`45`		`- name <- match.arg(name)`
	`45`	`+ # cannot match.arg we need to support custom themes`
	`46`	`+ name <- name[1]`
`46`	`47`
`47`	`48`	`# add name to register`
`48`	`49`	`e$x$theme <- name`