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

Question

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

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

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

请注意，这对我不起作用： R闪亮：如何阻止滑块输入标签单击导致滚动到页面顶部？

示例代码：

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)