Доступ к щелчкам строк в таблице данных в моде Shiny

Question

Это перекрестная публикация отсюда (https://community.rstudio.com/t/accessing-row-clicks-in-data-table-in-modal/8961), пока нет ответов.

Я рисую таблицу данных, используя пакет DT в Shiny внутри модального окна. Это отлично подходит для моего пользовательского интерфейса, но я хочу, чтобы пользователи могли щелкнуть по нему и получить доступ к строке, по которой они щелкнули. Обычный ввод $ tablename_rows_clicked не будет работать, потому что в пользовательском интерфейсе ему нет места.

Есть ли умныйТип DT это делает? Или, может быть, есть умный способ JavaScript? Кто-нибудь какие-нибудь предложения?

Спасибо!

Answer 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)