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 の行だけが含まれていることを検証します。