r - 如何在串扰环境中对 plot_ly 图表进行刻面

Question

所以我的问题和这个完全一样，只是我有兴趣在启用串扰的上下文中执行操作。因此，复杂性源于do对象不适用于对象这一事实SharedData。好像我想要的东西太多了？

这是带有切片器的情节的代表（这是相关的，因为如果我更改SharedData太多切片器会变得不稳定），适合放置在降价文档中。那么我怎样才能按物种分面？

library(plotly)
library(crosstalk)
iris_sh <- iris %>% group_by(Species) %>% SharedData$new()
filter_slider(id = "1", label = "whatevs",
                       sharedData = iris_sh, column = ~Sepal.Length)
plot_ly(iris_sh, x = ~Sepal.Width, y = ~Petal.Width, color = ~Species) %>% add_markers()