Revert "Fix bug: Allow multiple themes e.g., theme: [default, custom.scss]"

dylanpieper · dylanpieper · commit 9a0bcef5e8af · 2025-11-26T17:11:12.000-06:00
This reverts commit 75a4dda.
diff --git a/R/ui.R b/R/ui.R
@@ -55,7 +55,7 @@ sd_ui <- function() {
 
   theme <- get_theme(metadata)
   default_theme <- FALSE
-  if ("default" %in% theme) {
+  if (any(theme == "default")) {
     default_theme <- TRUE
   }
   barcolor <- get_barcolor(metadata)
@@ -504,7 +504,7 @@ render_survey_qmd <- function(paths, default_theme = TRUE, theme = NULL) {
 
   # Add theme to render_metadata if provided
   # This allows themes defined under theme-settings to be applied by Quarto
-  if (!is.null(theme) && !all(theme == "default")) {
+  if (!is.null(theme) && theme != "default") {
     render_metadata$theme <- theme
   }
 

Original file line number	Diff line number	Diff line change
`@@ -55,7 +55,7 @@ sd_ui <- function() {`
`55`	`55`
`56`	`56`	`theme <- get_theme(metadata)`
`57`	`57`	`default_theme <- FALSE`
`58`		`- if ("default" %in% theme) {`
	`58`	`+ if (any(theme == "default")) {`
`59`	`59`	`default_theme <- TRUE`
`60`	`60`	`}`
`61`	`61`	`barcolor <- get_barcolor(metadata)`
`@@ -504,7 +504,7 @@ render_survey_qmd <- function(paths, default_theme = TRUE, theme = NULL) {`
`504`	`504`
`505`	`505`	`# Add theme to render_metadata if provided`
`506`	`506`	`# This allows themes defined under theme-settings to be applied by Quarto`
`507`		`- if (!is.null(theme) && !all(theme == "default")) {`
	`507`	`+ if (!is.null(theme) && theme != "default") {`
`508`	`508`	`render_metadata$theme <- theme`
`509`	`509`	`}`
`510`	`510`