defaultValues doesn't respect numeric values

TX <- crosstalk::SharedData$new(txhousing, ~year)
p <- ggplot(TX, aes(month, median, group = year)) + geom_line() +
  facet_wrap(~city, ncol = 2)
highlight(ggplotly(p), dynamic = TRUE, selectize = TRUE, defaultValues = 2006)

• Always transmit strings? How to handle list-columns?
• How to set things a different color? Named list (e.g, defaultValues = list(red = 2006, blue = 2014))?

首先，使用 crosstalk::SharedData$new、ggplotly() 和 highlight()，并设置 defaultValues = 2006，复现所提供的 R 示例。跟踪 defaultValues 的处理方式，然后明确数值、字符串、列表列和命名颜色值的预期行为；当这些情况都有达成一致且经过测试的结果时，该 issue 即完成。