R串扰中与DataTable的Plotly交互

如何解决R串扰中与DataTable的Plotly交互

我正在创建一个由 crosstalk 包中的 SharedData 支持的 flexdashboard（不是闪亮的，通过降价编织来创建静态 HTML）。我有两种类型的数据：data_wide 用于显示有关 key 变量的信息的数据表和用于显示 data_long 折线图的绘图图中的 score对于每个 year 变量的每个 key。

但是，我的数据表和绘图图似乎没有交互作用。换句话说，当我在数据表中选择一行时，绘图图似乎没有突出显示表示 key 的线。

这是一个模拟代码：

data_wide <- SharedData$new(data_wide,key = ~key)
data_long <- SharedData$new(data_long,key = ~key)

data_long %>% 
  plot_ly(x = ~year,y = ~score,split = ~key,color = ~key,type = "scatter",mode = "lines") %>% 
  highlight()

wide_data  %>% 
  datatable(style="bootstrap",class="compact",width="100%",rownames = F,escape = F,options=list(deferRender=TRUE,scrollX = T))