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)

Bắt đầu với ví dụ Shiny được cung cấp và điểm vào event_data("plotly_click"), đồng thời so sánh đầu ra của biểu đồ hình tròn với cách khắc phục bằng customdata. Xác định những nhãn và giá trị nào của biểu đồ hình tròn cần được truyền đi, cũng như liệu cách xử lý hiện tại của pt.data và pt._fullData có loại trừ chúng hay không. Được xem là hoàn tất khi các trường dự kiến xuất hiện trong dữ liệu sự kiện của ví dụ.