В Shiny, избегайте перекрытия выпадающего меню selectInput с кнопкой действия под ним - PullRequest
Новая
       21

В Shiny, избегайте перекрытия выпадающего меню selectInput с кнопкой действия под ним

0 голосов
/ 28 февраля 2019

Это кажется очень простым вопросом, но я искал и искал!

Я использую selectize для выбора нескольких элементов из списка в выпадающем меню selectInput.Под ним у меня есть кнопка «Отправить», чтобы выполнить какое-либо действие в списке.Когда вы добавляете несколько записей, поле selectInput увеличивается, и кнопка динамически перемещается вниз по боковой панели, но когда вы открываете раскрывающееся меню, чтобы увидеть список опций, кнопка Submit скрывается.Я бы хотел, чтобы кнопка динамически спрыгивала вниз и оставалась видимой при открытии выпадающего меню, и наоборот, чтобы подпрыгивала назад при закрытии.

Я не могу ради своей жизни ...

Я знаю, как изменить размер раскрывающегося списка по умолчанию с помощью css .selectize-dropdown-content {max-height: ...}, и я могу добавить проставку, чтобы кнопка «Отправить» всегда была видна, но это лишнее местоВы закончили выбирать элементы.

образец кода прилагается 

library(shiny)
library(shinydashboard)

# long entries that will increase number of lines in the selectInput box
nonsenseWords <-  c(replicate(25,paste0(sample(letters, 10, replace=TRUE),collapse="")))

ui <-
  dashboardPage(
    dashboardHeader(),
    dashboardSidebar(
      fluidRow(style = "margin: 1%",
        selectInput("tall_list", 
                    "Stop covering my buttons!", 
                    nonsenseWords,
                    multiple = TRUE,
                    selected=nonsenseWords[c(1,5,7,11,20)]
                   )
        # The line below puts static space between the dropdown and the submit button -- this is what I want to remove
        # ,tags$div(style = "height: 16em;")
      )
     ,fluidRow(style = "margin: 1%",
         actionButton("submit", "Submit")
      )
    ),
    dashboardBody(
      dataTableOutput("choice")
    )
  )

server <- function(input, output, session) {
  output$choice <- renderDataTable({
    req(input$submit)
    return(data.frame("Chosen Words" = c(input$tall_list)))
  })
}

shinyApp(ui, server)

1 Ответ

0 голосов
/ 28 февраля 2019

Используйте этот CSS: 

dashboardBody(
  tags$head(
    tags$style(".selectize-dropdown {position: static}")
  ),
  dataTableOutput("choice")
)
...