r - R Crosstalk での DataTable との相互作用のプロット

Question

パッケージ内のSharedDataに裏打ちされたフレックスダッシュボード（光沢がなく、マークダウンを使用して静的HTMLを作成する）を作成していcrosstalkます。2 種類のデータがあります。変数data_wideに関する情報を表示するデータテーブルで使用され、変数ごとに各変数の折れ線グラフを表示するプロット グラフで使用されます。keydata_longscoreyearkey

ただし、私のデータテーブルとプロットグラフは相互作用していないようです。言い換えれば、データテーブルの行を選択すると、プロットグラフはそれを表す線を強調表示していないようです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))