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)

Commencez par l’exemple Shiny fourni et le point d’entrée event_data("plotly_click"), en comparant la sortie du graphique en secteurs avec le contournement utilisant customdata. Déterminez quelles étiquettes et quelles valeurs du graphique en secteurs doivent être transmises et si le traitement existant de pt.data et pt._fullData les exclut. C’est terminé lorsque les champs attendus apparaissent dans les données d’événement de l’exemple.