这似乎是一个非常简单的问题,但我已经搜索了一遍又一遍!
我正在使用selectize从selectInput下拉菜单的列表中选择多个项目。在它下面,我有一个Submit按钮,用来对列表执行一些操作。当您添加多个条目时,提交框会增长,并且按钮会动态地向下移动到侧边栏,但是当您打开下拉菜单查看选项列表时,selectInput按钮是隐藏的。我希望按钮动态地跳下并保持可见,当你打开下拉菜单时,反之,当它关闭时跳回来。
我无论如何都不能...
我知道如何使用CSS.selectify- dropdown -content{ max-height:... }更改dropdown的默认大小,我还可以添加一个间隔符以使Submit按钮始终可见,但一旦选择完项目,这就浪费了空间。
附带的示例代码
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)
发布于 2019-03-01 04:35:46
使用此CSS:
dashboardBody(
tags$head(
tags$style(".selectize-dropdown {position: static}")
),
dataTableOutput("choice")
)
https://stackoverflow.com/questions/54933677
复制相似问题