r - Shinydashboard 'topbar'

Question

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

Answer 1

根据 pig 排的答案，您可以简单地将selectInput中的div(或其他 Shiny 的输入)与float:left一起使用，以使其水平分布:

CustomHeader <- dashboardHeader()
CustomHeader$children[[3]]$children <- list(
  div(style="float:left;height:50px",selectInput("select1", NULL, c("a","b","c"))),
  div(style="float:left;height:50px",selectInput("select2", NULL, c("d","e","f"))))

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

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

shinyApp(ui, server)