Я хочу вставить фильтрацию вместо заголовка в navbar.Как это можно сделать?
В вопросе здесь фильтрация размещена справа от заголовка.Но в этом случае кнопка, которая сворачивается на боковой панели, исчезает.В этом коде я поместил фильтрацию вместо заголовка, но я все еще не вижу полный список элементов в виджете.
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)
