Shinydashboard：如何将过滤粘贴到导航栏中而不是标题？

Question

我想在导航栏中粘贴过滤器而不是标题。怎么可能呢？

在问题here中，过滤器位于标题的正上方。但是在那种情况下，折叠边栏的按钮会消失。在这段代码中，我放置了过滤而不是标题，但仍然看不到小部件中的项的完整列表。

CustomHeader <- dashboardHeader()
CustomHeader$children[[2]]$children <- list(
  div(style="padding: 7px; height: 30px;",
      selectInput("select1", NULL, c("a","b","c"))))

ui <- dashboardPage(
  CustomHeader,
  dashboardSidebar(),
  dashboardBody(textOutput("text1"))
)

server <- function(input, output, session) {
  output$text1 <- renderText({input$select1})

}

shinyApp(ui, server)