Subset of datapoints selected in a ggplotly scatterplot: saving to dataframe?

This code posted in Return datapoints selected in a plotly scatterplot
(and substituting the unavailable highlight_unit() by highlight_key() ) displays selected cases

#d <- highlight_unit(iris)
d <- highlight_key(iris)
a <- ggplotly(ggplot(data = d, aes(x = Sepal.Width, y = Petal.Width)) + geom_point()) %>%
  highlight("plotly_selected", dynamic = TRUE)
options(persistent = TRUE)
p <- datatable(d)
bscols(widths = c(6, 4), a, p)

Could the selected subset be saved as a new dataframe?

首先使用 ggplotly()、highlight("plotly_selected", dynamic = TRUE) 和 datatable(d) 运行可复现的 R 示例。确定如何将选定的子集作为新的 data frame 暴露出来，然后验证生成的对象仅包含选定的 iris 行。