defaultValues only works with external libraries when plotly is rendered first

Doesn't work

library(crosstalk)
library(plotly)
library(mapview)
tsd <- SharedData$new(trails)

bscols(
  DT::datatable(tsd),
  plot_mapbox(tsd, text = ~FKN, hoverinfo = "text") %>% highlight(defaultValues = "307")
)

Works

bscols(
  plot_mapbox(tsd, text = ~FKN, hoverinfo = "text") %>% highlight(defaultValues = "307"),
  DT::datatable(tsd)
)

issue内の2つのbscolsの例から始め、DT::datatable(tsd)がプロットの前または後に現れる場合に、highlight(defaultValues)とplot_mapboxウィジェットがどのように初期化されるかを調べます。両方の順序を再現し、その後、ウィジェットの順序に関係なくdefaultValuesが機能することを確認します。