在shinydashboard标题上放置一个下拉按钮以选择主题

我想在shinydashboard标题上放置一个下拉菜单，用于更改仪表板主题。我的闪亮应用程序如下所示。我无法使应用程序工作。我得到的是错误信息

Error in FUN(X[[i]], ...) : Expected tag to be of type li

仪表板区域似乎不接受那些典型的闪亮小部件？标题区域是放置此功能的最佳位置。有人知道我该怎么做吗？非常感谢

library(shiny)
library(shinydashboard)
library(shinyWidgets)
library(dashboardthemes)


header <- dashboardHeader(
    title = "Dashboard Demo",
    dropdownButton(

        tags$h3("List of Themes:"),

        radioButtons(inputId = 'theme',
                     label = 'Dashboard Theme',
                     choices = c('blue_gradient', 'boe_website', 'grey_light','grey_dark',
                                 'onenote', 'poor_mans_flatly', 'purple_gradient'),
                     selected = 'grey_dark',
                     inline=FALSE),

        circle = TRUE, status = "primary",
        icon = icon("window-maximize"), width = "300px",

        tooltip = tooltipOptions(title = "Click to change dashboard theme")
    )
)

shinyApp(
    ui = dashboardPage(
        header,
        dashboardSidebar(),
        dashboardBody(
            shinyDashboardThemes(
                theme = input$theme
            ),
        )
    ),
    server = function(input, output) { }
)

库（闪亮）
图书馆（shinydashboard）
图书馆（shinyWidgets）
库（仪表板主题）
页眉您不能将
下拉按钮
放在
仪表板页眉
中

相反，您可以将其放在
仪表板主体
或
仪表板侧栏
中，并按如下方式进行更新：

library(shiny)
library(shinydashboard)
library(shinyWidgets)
library(dashboardthemes)

shinyApp(
  ui = dashboardPage(
    dashboardHeader(title = "Dashboard Demo"),
    dashboardSidebar(),
    dashboardBody(
      dropdownButton(
        radioButtons(inputId = 'theme',
                     label = 'Dashboard Theme',
                     choices =  c('blue_gradient', 'boe_website', 'grey_light','grey_dark',
                                  'onenote', 'poor_mans_flatly', 'purple_gradient'))
      ),
      uiOutput("myTheme")
    )
  ),
  server = function(input, output) { 
    output$myTheme <- renderUI( shinyDashboardThemes(theme = input$theme))
    }
)

库（闪亮）
图书馆（shinydashboard）
图书馆（shinyWidgets）
库（仪表板主题）
shinyApp(
ui=仪表板页面(
仪表板标题（title=“仪表板演示”），
仪表板侧栏（），
仪表板主体(
下拉按钮(
单选按钮（inputId='theme'，
标签='仪表板主题'，
选项=c（'blue_gradient'、'boe_website'、'grey_light'、'grey_dark'，
‘onenote’、‘可怜的男人’、‘紫色的梯度’）
),
uiOutput（“myTheme”）
)
),
服务器=函数（输入、输出）{
输出$myTheme谢谢。有没有办法在标题中添加其他内容，我可以从主题列表中进行选择？@HubertLHave-look