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 中的两个 bscols 示例开始，检查当 DT::datatable(tsd) 出现在绘图之前或之后时，highlight(defaultValues) 和 plot_mapbox widget 是如何初始化的。复现这两种顺序，然后验证无论 widget 的顺序如何，defaultValues 都能正常工作。