在 Shiny 模式下访问数据表中的行点击答案

【问题标题】：Accessing row clicks in data table in Shiny modal在 Shiny 模式下访问数据表中的行点击
【发布时间】：2018-11-07 19:22:53
【问题描述】：

这是从这里 (https://community.rstudio.com/t/accessing-row-clicks-in-data-table-in-modal/8961) 交叉发布的，还没有回复。

我在模态中使用 Shiny 中的 DT 包绘制数据表。这对我的 UI 非常有用，但我希望用户能够单击它并访问他们单击的行。通常的 input$tablename_rows_clicked 不起作用，因为它没有在 UI 中指定一个插槽。

有没有一种聪明的 DT 类型的方法来做到这一点？或者是否有一种聪明的 JavaScript 方式？大家有什么建议吗？

谢谢！

【问题讨论】：

标签： shiny dt

【解决方案1】：

你可以这样做：

library(DT)
library(shiny)

ui <- fluidPage(
  actionButton("Submit","Submit")
)

server <- function(input, output, session) {

  output$Table <- renderDataTable({datatable(mtcars, selection = 'single')})

  Clicked <- eventReactive(input$Table_rows_selected,{
    input$Table_rows_selected
  })

  output$selected <- renderText({paste0("You Selected Row: ",Clicked())})

  observeEvent(input$Submit,{
    showModal(modalDialog( h2("Row Selection Example"),DT::dataTableOutput('Table'),size = "l",br(),textOutput("selected")))
  })
}

shinyApp(ui, server)

【讨论】：