r - crosstalk と plotly - ggplotly は shareddata-object を受け入れません

Question

plotly および crosstalk ライブラリを使用して、インタラクティブにリンクされた視覚化を生成しようとしています。以下の例に示すように、ggplotly() でリンクされたビューを生成するために、ggplot2 に「共有データフレーム」オブジェクトを渡すことができるようです。この例を実行しようとすると、次のエラー メッセージが表示されます。

エラー: ggplot2 はクラス SharedData/R6 のデータを処理する方法を知りません

現在のバージョンの ggplot2 (v. 2.2.1) と plotly (4.5.6) を使用しています。このエラーの原因は何ですか?

助けてくれてありがとう！

私が複製しようとしている例は、次の場所にあります。

https://cpsievert.github.io/plotly_book/linking-animated-views.html

library(gapminder)
library(crosstalk)
library(ggplot2)
library(plotly)

g <- crosstalk::SharedData$new(gapminder, ~continent)

gg <- ggplot(g, aes(gdpPercap, lifeExp, color = continent, frame = year)) +
  geom_point(aes(size = pop, ids = country)) +
  geom_smooth(se = FALSE, method = "lm") +
  scale_x_log10()
  ggplotly(gg) %>% 
  highlight("plotly_hover")

  Error: ggplot2 doesn't know how to deal with data of class SharedData/R6