defaultValues doesn't respect numeric values

[cpsievert]

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))?

[cpsievert]

For the 1st issue, perhaps it's best to use == instead of ===, as mentioned in #1167