сбросить event_data в p ie график

Question

Я разрабатываю приложение с блестящим, в котором я хочу отфильтровать базовые mtcars по количеству цилиндров. Для этого я использую сюжетный сюжет. Проблема в том, что в двойном щелчке p ie график сброса event_data не работает. Я sh, что после фильтрации данных я могу снова отобразить итоговую таблицу (32 строки). По возможности без использования кнопки действий. Любое предложение будет очень полезно.

Примечание: С гистограммой оно работает правильно.

library(shiny)
library(plotly)
library(dplyr)
library(DT)
library(tibble)

shinyApp(
  ui = fluidPage(
    plotlyOutput("plot"),
    DT::dataTableOutput("click")
  ),
  server = function(input, output, session) {
    output$plot <- renderPlotly({
      mtcars %>%
        group_by(cyl = as.character(cyl)) %>%
        summarise(count = n()) %>%
        plot_ly(labels = ~cyl, values = ~count, type = "pie", key=~cyl, source = "subset")
        #plot_ly(x = ~cyl, y = ~count, type = "bar", color = ~as.factor(cyl), source = "subset")
    })
    output$click <- DT::renderDataTable({
      d <- event_data(event = "plotly_click", source = "subset")
      if (is.null(d)){
        df <- mtcars  
      } else {
        df <- mtcars %>%
          rownames_to_column('name') %>%
          filter(cyl %in% d$key) %>%
          #filter(cyl %in% d$x) %>%
          column_to_rownames('name')
      }
      DT::datatable(df, rownames = T, options = list(pageLength = 16))
    })
  })