Shiny 在数据库中访问数据表中的行单击

这是从这里（）交叉发布的，还没有回复

我正在使用模式中的DT包绘制一个数据表。这对于我的UI来说非常好，但我希望用户能够单击它并访问他们单击的行。通常点击的$tablename\u rows\u输入将不起作用，因为它在UI中没有分配插槽

有没有一种聪明的DT类型的方法可以做到这一点？或者有没有一种聪明的JavaScript方法？有什么建议吗

---

谢谢

您可以这样做：

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)

库（DT）
图书馆（闪亮）
ui您可以这样做：

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)

库（DT）
图书馆（闪亮）
用户界面