Question

我在页面顶部的R闪亮应用程序中创建了一个数据表，底部有输入控件，用于确定该表中显示的数据。

表格很长，因此用户必须向下滚动才能访问输入控件。但是在更改任何单个输入控件时，应用程序将自动滚动到页面顶部。

如何在更改输入时阻止自动滚动到页面顶部？（请注意，我不希望延迟更新表，直到所有输入都被更改为例如必须单击的“更新表”按钮，在这种情况下，自动滚动就可以了。）

请注意，这对我没用： R shiny: how to stop sliderInput label click from causing scroll to top of page?

示例代码：

library(shiny)
library(DT)

# Define UI
ui <- shinyUI(
  fluidRow(
    column(3,
           DT::dataTableOutput("exampleOutput"),
           numericInput("var", h5("Row value"), value = 100)
    )
  )
)

server <- function(input, output) {
  exampleTable <- reactive({
    transactionCostsDataFrame <- data.frame(
      "Transaction" = rep(input$var, 100))
  })

  output$exampleOutput <- DT::renderDataTable(
    DT::datatable(exampleTable(), escape = FALSE, 
                  options = list(dom = "t", ordering = FALSE, 
                                 bFilter = 0, pageLength = 100))
    )
}

# Run the app
shinyApp(ui = ui, server = server)

更改输入后，R闪亮停止滚动到页面顶部

0 个答案: