pie labels/values aren't relayed in event_data()

At least the customdata workaround exists, but we should do a better job relaying more information (do we 'black-list' pt.data/pt._fullData and let everything else through)? https://codepen.io/cpsievert/pen/rNNZpVo

library(shiny)

ui <- fluidPage(
  plotlyOutput("category"),
  verbatimTextOutput("info")
)

server <- function(input, output) {
  
  output$category <- renderPlotly({
    sales %>%
      count(category, wt = sales) %>%
      plot_ly() %>%
      add_pie(labels = ~category, values = ~n)
  })
  
  output$info <- renderPrint({
    event_data("plotly_click")
  })
  
}

shinyApp(ui, server)

Beginnen Sie mit dem bereitgestellten Shiny-Beispiel und dem Einstiegspunkt event_data("plotly_click"), und vergleichen Sie die Ausgabe des Kreisdiagramms mit der customdata-Umgehungslösung. Bestimmen Sie, welche Beschriftungen und Werte des Kreisdiagramms weitergegeben werden sollten und ob die bestehende Verarbeitung von pt.data und pt._fullData sie ausschließt. Erledigt bedeutet, dass die vorgesehenen Felder in den Ereignisdaten für das Beispiel erscheinen.