fix typo demo; closes #1347

Author: cpsievert

demo/crosstalk-highlight-leaflet.R

@@ -7,7 +7,7 @@ library(htmltools)
 # leaflet should respect these "global" highlight() options
 options(opacityDim = 0.5)
 
-sd <- crosstalk_unit(quakes)
+sd <- highlight_key(quakes)
 
 p <- plot_ly(sd, x = ~depth, y = ~mag) %>% 
   add_markers(alpha = 0.5) %>%