闪亮的数据表选择响应用户输入

Question

我在通过用户输入中选择数据表中的一行时遇到问题。我使用的是Shiny和DT的开发版本，因为行选择在非DEV版本中不起作用。具体来说，我正在使用闪亮的" 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)

运行时，选择了testTable的第三行，因为那是selectRow的默认值。但是更改selectRow的值对testTable中的行选择无关。漏洞？还是我做错了什么？

Answer 1

selected选项仅适用于预选。为了创建表后更新选择，您需要使用dataTableProxy和selectRows。将以下内容添加到您的服务器代码中。

proxy = dataTableProxy("testTable")
observeEvent(input$selectRow, {
    selectRows(proxy, as.numeric(input$selectRow))
})