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

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

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

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

请注意，这对我不起作用：

示例代码：

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)

库（闪亮）
图书馆（DT）
#定义用户界面
你能提供一个简单的工作示例吗。谢谢你对我的问题感兴趣。添加了示例代码。