Shinydashboard 'topbar‘

Question

是否可以在dashboardHeader旁边的水平栏中放置一些项目？我知道你可以把notificationItem放在最右边，就像在这个例子一样。但我想使用与dashboardSidebar中相同的选项，比如添加过滤器等。我希望在顶部设置这样一个过滤器：

​

Answer 1

嗨，你可以这样做：

library(shiny)
library(shinydashboard)

CustomHeader <- dashboardHeader()
CustomHeader$children[[3]]$children <-  div(style="min-width:200px;",tags$input(id="searchbox",placeholder = "  Search...",type="text",class="chooser-input-search",style="width:200px;height:50px;"))

ui <- dashboardPage(
  CustomHeader,
  dashboardSidebar(),
  dashboardBody()
)
server <- function(input, output, session) {}
shinyApp(ui, server)

​

​