如何从 Shiny 中的数据透视表的数据点访问源数据

Question

在 Excel 中，您可以双击数据透视表中的任何值，它将为您提供从原始源数据集中提取的数据。有没有一种方法或类似的功能可以从 Shiny 中的数据透视表的数据点接收相同的提取内容？

Answer 1

library(tidyverse)
library(shiny)
library(DT)

shinyApp(
  ui = basicPage(
    dataTableOutput("pivot_table"),
    dataTableOutput("extract_table")
  ),
  server = function(input, output) {
    data <- iris
    
    pivot_data <- data %>% count(Species)
    
    extracted_data <- reactive(
      data %>% semi_join(pivot_data[input$pivot_table_rows_selected, ])
    )
    
    output$pivot_table <- renderDataTable(pivot_data)
    output$extract_table <- renderDataTable(extracted_data())
  }
)