在 R Shiny 中自动化 SelectInput 的滑块答案

【问题标题】：Automating the slider of SelectInput in R shiny在 R Shiny 中自动化 SelectInput 的滑块
【发布时间】：2018-01-23 09:20:49
【问题描述】：

下面给定的 R Shiny 脚本创建了一个带有多个 selectInputs 的框面板，如果单击任何 selectInput，滑块将出现在框本身内，请帮助我使其出现在框外，并且无需修改对齐方式框面板和输入，简单来说，“splitlayout”需要修复。注意：对齐非常重要，请勿更改。谢谢

library(shiny)
library(shinydashboard)
ui <- dashboardPage(
dashboardHeader(),
dashboardSidebar(),
dashboardBody(
box(title = "Data", status = "primary", solidHeader = T, width = 12,
    splitLayout(
      cellArgs = list(style = "padding: 10px"),
      selectInput("select1","select1",c("A1","A2","A3"), selected = "A1"),
      selectInput("select2","select2",c("A3","A4","A5"), selected = "A3"),
       selectInput("select2","select2",c("A3","A4","A5"), selected = "A3"),
         selectInput("select2","select2",c("A3","A4","A5"), selected = 
 "A3"),
         selectInput("select2","select2",c("A3","A4","A5"), selected = "A3")
    ))))
 server <- function(input, output) { }
 shinyApp(ui, server)

【问题讨论】：

您可以使用fluidRows 和columns 并执行this 之类的操作，而不是使用splitLayout
@SBista，对您的解决方案没有任何疑问，但正如我所说，我还有对齐方式要照顾，selectInputs 端到端跨越框，这是使用 splitLayout 实现的，请帮助我在这方面，如果您可以确保其他方式的对齐应该很好，请提出建议。

标签： r shiny shinydashboard shinyapps

【解决方案1】：

如果您没有找到更好的解决方案，强制 css (overflow of shiny-split-layout) 值应该会有所帮助。

library(shiny)
library(shinydashboard)
ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(
    tags$head(tags$style(HTML('.shiny-split-layout>div {overflow:visible}')))
  ),
  dashboardBody(
    box(title = "Data", status = "primary", solidHeader = T, width = 12,
        splitLayout(
          cellArgs = list(style = "padding: 10px"),
          selectInput("select1","select1",c("A1","A2","A3"), selected = "A1"),
          selectInput("select2","select2",c("A3","A4","A5"), selected = "A3"),
          selectInput("select2","select2",c("A3","A4","A5"), selected = "A3"),
          selectInput("select2","select2",c("A3","A4","A5"), selected = 
                        "A3"),
          selectInput("select2","select2",c("A3","A4","A5"), selected = "A3")
        ))))
server <- function(input, output) { }
shinyApp(ui, server)

【讨论】：