r - 如何访问所选设备标识符行的内容？

Question

library(shiny)
library(DT)
ui <- basicPage(
  mainPanel(DT::dataTableOutput('row_modif')),
  textOutput("selectedrow")
)

server <- function(input, output, session){
  
  output$row_modif<-renderDT({
    
    datatable(
      iris, selection = "single") 
    
  })
    output$selectedrow<-renderPrint({input$row_modif_rows_selected})

} 
shinyApp(ui, server)

有可能access the number of the selected line通过:

input$row_modif_rows_selected

但是我如何才能从选定的这一行访问一个特定的列？这个想法是点击一行并访问物种和萼片。例如，该行的长度列

Answer 1

您需要使用input$row_modif_rows_selected 来索引iris 数据集的行。请注意，input$row_modif_rows_selected 仅返回行号，而不是行本身。

library(shiny)
library(DT)
ui <- basicPage(
  mainPanel(
    DT::dataTableOutput('row_modif'),
    tags$p("Selected Row:\n"),
    textOutput("selectedrow"), 
    tags$p("Species and Sepal Length for Selected Row:\n"), 
    DT::dataTableOutput("sscols")
  )
)
server <- function(input, output, session){
  
  output$row_modif<-renderDT({
    
    datatable(
      iris, selection = "single") 
    
  })
  output$selectedrow<-renderPrint({input$row_modif_rows_selected})
  output$sscols <- renderDT({
    datatable(iris[input$row_modif_rows_selected, c("Species", "Sepal.Length")])
  })
} 
shinyApp(ui, server)