Shiny 响应用户输入的数据表行选择

我在通过用户输入选择数据表中的行时遇到问题。我使用的是Shining和DT的开发版本，因为行选择在非开发版本中不起作用。具体来说，我使用的是闪亮的'0.13.2.9004'和DT'0.1.56'。考虑这个应用程序：

library(DT)
library(shiny)

ui <- fluidPage(
  sidebarLayout(
    sidebarPanel(
      textOutput('row'),
      numericInput('selectRow', 'selectRow', 3)
    ),
    mainPanel(
      DT::dataTableOutput('testTable')
    )
  )
)

server <- function(input, output, session) {
  output$testTable <- DT::renderDataTable(iris,
                                          selection = list(mode = 'single',
                                                           target = 'row',
                                                           selected = as.character(input$selectRow)),
                                          server = TRUE)
}

shinyApp(ui = ui, server = server)

库（DT）
图书馆（闪亮）
ui选择的
选项仅适用于预选。要在创建表后更新选择，需要使用
dataTableProxy
和
selectRows
。将以下内容添加到服务器代码中

proxy = dataTableProxy("testTable")

observeEvent(input$selectRow, {
    selectRows(proxy, as.numeric(input$selectRow))
})