r crosstalk filter_select：无法解开已经选择的值

Question

我正在尝试使用 crosstalk 来过滤 plotly 图表。我使用 crosstalk 的 filter_select 来（取消）过滤 plotly 图表。当使用下面的 reprex 尝试选择一朵花（例如 setosa）时，一切正常。但是，当我取消选择花朵时，这些值不会“返回”到 plotly 图表。选择“（全部）”似乎也不起作用。仅当从花过滤器中取消选择并在 helper_select_all 中勾选 TRUE 时，这些值才会重新出现。

library(crosstalk)
library(plotly)

df <- iris
df$helper_select_all <- T

shared_data <- SharedData$new(df)

filter <- bscols(
  list(
    filter_select("flower", "Select a flower", shared_data, ~Species),
    filter_checkbox(
      "helper_select_all",
      label = "Reset filtering as deselecting from 'Select a flower' is not working",
      shared_data, ~helper_select_all)
  )
)


p <- plot_ly(shared_data, x = ~Sepal.Length, y = ~Sepal.Width) %>% 
  add_markers()


bscols(filter, p)

此图演示了问题，因为未选择过滤值，但丢失了部分数据。

此图显示了所有数据点都存在时的情况。

“（全部）”似乎也不起作用。