有没有办法使用ggiraph和onclick在R中的Modal窗口中显示过滤后的数据表？

install.packages("ggiraph")

library(ggplot2)
library(ggiraph)

df <- data.frame(
  x = c(1, 2, 3, 4, 5),
  y = c(10, 20, 30, 40, 50),
  category = c("A", "B", "A", "B", "A")
)

p <- ggplot(df, aes(x, y, color = category)) +
  geom_point_interactive(aes(tooltip = category)) +
  theme_minimal()

gg <- ggiraph(code = print(p))

onclick(gg, function(id, data) {
  filtered_df <- subset(df, category == data$category)
  showModal(modalDialog(
    dataTableOutput("filtered_table")
  ))
  
  output$filtered_table <- renderDataTable({
    filtered_df
  })
})