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

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是有关dashboardHeader内容的基本知识。

要在标题上显示项目有两个要求。他们需要具有li标签，并且需要具有dropdown类。这通常限制您仅使用软件包中的内置下拉功能。您只需将要添加的任何小部件括在其中，它将被添加到标题中。

示例：

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

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