small bug fix

Workaround, because variable "dashboard@theme" is not recognized.

R/assemble.R

@@ -24,8 +24,10 @@ setMethod("assemble", "i2dashboard", function(dashboard, pages = names(dashboard
   ymlthis::yml(date = F) %>%
     ymlthis::yml_title(dashboard@title) %>%
     ymlthis::yml_author(dashboard@author) %>%
-    ymlthis::yml_output(flexdashboard::flex_dashboard(theme = dashboard@theme)) %>%
-    {if(dashboard@interactive) ymlthis::yml_runtime(., runtime = "shiny") else .} %>%
+    ymlthis::yml_output(flexdashboard::flex_dashboard(theme = "yeti")) -> yaml_header # workaround, because variable "dashboard@theme" is not recognised
+  yaml_header$output$`flexdashboard::flex_dashboard`$theme <- dashboard@theme
+  if(dashboard@interactive) yaml_header <- ymlthis::yml_runtime(yaml_header, runtime = "shiny")
+  yaml_header %>%
     ymlthis::use_rmarkdown(path = tmp_document, include_body = FALSE, quiet = TRUE, open_doc = FALSE)
 
   # Add i2dash global setup