Неправильное отображение

Question

Я хочу поместить selectInput внутри dashboardHeaderPlus, но это означает, что заголовок выходит за границы, путаясь даже с боковой панелью, как показано на рисунке:

Что он предназначен дляслучается, делает selectInput похожим на панель поиска в Facebook, что означает центрирование, не затрагивая заголовок и стилизованный под значком увеличительного стекла, если это возможно.Просто так:

Изображение: фактический вывод / предполагаемый вывод

library(shiny)
library(shinydashboard)
library(shinydashboardPlus)
library(shinyWidgets)


MenuProfesor <- function(){
    selectInput(inputId = "Search",
                label = NULL,
                selected = FALSE, 
                multiple = FALSE,
                choices = c('1','2','3','4'))
}

header <- dashboardHeaderPlus(
  title = 'Planificación UAI',
  enable_rightsidebar = FALSE,
  left_menu = tagList( MenuProfesor())
  )

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

Answer 1

У вас это работает?:

library(shiny)
library(shinydashboard)
library(shinydashboardPlus)
library(shinyWidgets)

header <- dashboardHeaderPlus(
  title = 'Planificación UAI',
  tags$li(class = "dropdown",
          tags$li(class = "dropdown", div(searchInput(
            inputId = "search", 
            label = NULL, 
            placeholder = "Search...", 
            btnSearch = icon("search"), 
            btnReset = icon("remove"),
            width = "100%"
          ), style= "width: 25%; margin-left: auto; margin-right: auto; margin-top:-43px; margin-bottom:-10px;"))),
  enable_rightsidebar = FALSE,
  fixed = TRUE
)

ui <- dashboardPage(
  header,
  dashboardSidebar(),
  dashboardBody()
)

server <- function(input, output, session) {}

shinyApp(ui, server)

---

Результат:

Также вы можете проверить этот связанный вопрос .