DT rows_selected不适用于FixedColumns扩展名

Question

在DT中使用FixedColumns扩展名时，rows_selected未在Sepel.Length

中注册任何选择

请参阅以下示例......

任何关于如何解决这个问题的建议都将受到赞赏。

library(DT)
library(shiny)

ui=shinyUI(
  fluidPage(
    DT::dataTableOutput("x3")
    )
  )

server=shinyServer(function(input, output) {
  output$x3 = DT::renderDataTable(
    DT:::datatable(
      iris, rownames=FALSE,
      extensions = c('FixedColumns'),
      options = list(
        fixedColumns = list(leftColumns = 1),
        scrollX = TRUE)
    ))

  observe({
    s = input$x3_rows_selected
    print(s)
  })
})


shinyApp(ui=ui,server=server)