在闪亮的仪表板标题部分添加闪亮的小部件

Question

有没有办法添加selectinput()内部shinydashboardPlus()标题？我不想要 提供的下拉菜单功能shinydashboardPlus()。我想要这样的东西：

#app.r
library(shiny)
library(shinyWidgets)
library(shinydashboard)
library(shinydashboardPlus)

shinyApp(
  ui = dashboardPagePlus(
    header = dashboardHeaderPlus(
#selectInput("variable", "Variable:",
 #           c("Cylinders" = "cyl",
  #            "Transmission" = "am",
   #           "Gears" = "gear"))
    ),
    sidebar = dashboardSidebar(),
    body = dashboardBody(
    ),
    rightsidebar = rightSidebar(),
    title = "DashboardPage"
  ),
  server = function(input, output) { }
)

Answer 1

shinydashboard 对仪表板标题的内容有点严格。

标题上显示的项目有两个要求。他们需要有标签li并且需要有班级dropdown。这通常限制您只能使用包中内置的下拉功能。您可以简单地用这些包围您想要添加的任何小部件，它将被添加到标题中。

例子：

dashboardHeader(
    tags$li(selectInput('whatever','whatever',choices = c('meh1','meh2'),
            class= 'dropdown'))

您可能想要控制放置的小部件的高度，因为长项目会导致标题行在侧边栏交叉点处断开。默认最大高度似乎为 50 像素。您可以通过 css 增加此大小或减小要添加的小部件的高度来解决此问题。