R Shiny - 多页可编辑数据表在编辑后跳转到第 1 行

我正在使用 R 3.3.1、Shiny v.1.2.0 和 v.DT 0.5 开发一个 Shiny 应用程序。其中一个元素是跨多个页面的可编辑数据表。在我进行编辑后，焦点行会跳转到第 1 行，这会破坏用户体验。

以下是使用下面的代码片段重现此问题的具体步骤：

1. 加载应用程序
2. 切换到数据表第2页
3. 编辑第 3 行第 2 列：将 Duh 更改为 Blue 并按 Tab
4. 观察当前行跳转到第 1 页第 1 行。如果每页有更多行，这样会更容易看出。

我在步骤 4 中得到的并不是理想的行为。我希望数据表将焦点保持在我刚刚编辑的同一行上。

我愿意使用自定义 JS 逻辑来完成这项工作。

看似相关的问题 -数据表在编辑后不记得分页页面 https://stackoverflow.com/questions/41431673/datatable-doesnt-remember-paginated-page-after-edit但我不知道在这个特定的例子中如何从 R 桥接到 JS。

 R.version.string
# "R version 3.3.1 (2016-06-21)"

library(shiny)  # v. 1.2.0
library(DT)  # v. 0.5

page_length <- 2 # 5 elements should span 3 pages

hardcoded_df <- read.table(text = "Fruit Color
                                   Apple Red
                                   Plum Purple
                                   Blueberry Duh
                                   Orange Carrot
                                   Crocodile Green",
                           header = TRUE,
                           stringsAsFactors = FALSE)

ui <- fluidPage(
   DT::dataTableOutput('x1')
)

server <- function(input, output) {
  x = reactiveValues(df = hardcoded_df)

   output$x1 = renderDT(DT::datatable(x$df, options = list(pageLength = page_length), selection = 'none', editable = TRUE))

   proxy = dataTableProxy('x1')

   observeEvent(input$x1_cell_edit, {
     info = input$x1_cell_edit
     str(info)

     # str(input$x1_state)
     i = info$row
     j = info$col
     v = info$value

     # Without this line the table does not change but with it it jumps to row 1 after an edit.
     x$df[i, j] <- isolate(DT::coerceValue(v, x$df[i, j]))

     # Now we need to scroll to row i somehow ... clearly this does not work. Help!
     selectPage(proxy, ceiling(i / page_length))
     # selectRow(proxy, i)
   })
}

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

在这个情况下DT::replaceData with resetPaging = FALSE应该可以正常工作，如图所示here https://github.com/rstudio/DT/pull/480。然而，定义x as a reactiveValues()引起一些问题，我用它解决了isolate

 server <- function(input, output, session) {
    x = reactiveValues(df = hardcoded_df)
    output$x1 = renderDT(DT::datatable(isolate(x$df), 
                options = list(pageLength = page_length), selection = 'none', editable = TRUE))

    proxy = dataTableProxy('x1')

    data = reactiveValues()
    observeEvent(input$x1_cell_edit, {
      info = input$x1_cell_edit
      str(info)
      # str(input$x1_state)
      i = info$row
      j = info$col
      v = info$value

      # Without this line the table does not change but with it it jumps to row 1 after an edit.
      x$df[i, j] <- isolate(DT::coerceValue(v, x$df[i, j]))
      DT::replaceData(proxy, x$df, resetPaging = FALSE)  # important
      # Now we need to scroll to row i somehow ... clearly this does not work. Help!
      #selectPage(proxy, ceiling(i / page_length))
      # selectRow(proxy, i)
    })
  }