Question

这是another problem的问题。给出了链接问题的解决方案。但是对于一个简单的修改，它又带来了另一个问题。

在解决方案中，我添加了“ zoom：0.5;”。现在缩放可以正常工作了，但我无法正确滑动sliderInput。

第一列中的滑块工作正常
第二列中的滑块从5移至10
第3点及以后的位置不要移动

代码：

library(shiny)

ui <- fluidPage(
  fluidRow(
    tags$head(tags$style("
      .flex-nowrap {
        display: inline-flex;
        -webkit-flex-wrap: nowrap !important;
        -ms-flex-wrap: nowrap !important;
        flex-wrap: nowrap !important;
        flex-direction: row;
      }

      .custom-column {
        width: 200px;
        margin: 0px 10px;
      }      
      "
    )),
    actionButton("addCol","Add New Column"),
    div(style="zoom:0.5;overflow-x: auto;",
        uiOutput("myUI")
    )
  )
)

server <- function(input, output, session) {
  alld <- reactiveValues()
  alld$ui <- list()

  observeEvent(input$addCol,{

    alld$ui[[length(alld$ui)+1]] <- sliderInput("aaa","",1,10,5)

    output$myUI <- renderUI({
      fluidRow(class="flex-nowrap", lapply(alld$ui,function(x){div(class = "custom-column", x)}))
    })})
}

shinyApp(ui, server)

flex-wrap，zoom和sliderInput无法一起使用

0 个答案: