added a crosstalk script for testing

Author: schloerke

scripts/crosstalk_example.R

@@ -0,0 +1,13 @@
+# devtools::install_github("jcheng5/d3scatter")
+library(d3scatter)
+library(crosstalk)
+
+# library(leaflet)
+
+shared_quakes <- SharedData$new(quakes[sample(nrow(quakes), 100),])
+bscols(
+  leaflet(shared_quakes, width = "100%", height = 300) %>%
+    addTiles() %>%
+    addMarkers(),
+  d3scatter(shared_quakes, ~depth, ~mag, width = "100%", height = 300)
+)

scripts/viztest_testing_notes.md

@@ -1,3 +1,11 @@
+## Also run
+
+* crosstalk
+  * should produce two plots. A scatter plot that highlights the markers in the leaflet plot when points are selected by click and drag
+```r
+source("scripts/crosstalk_example.R")
+```
+
 ## Known Issues
 * The top left zoom icons changed css and are now bigger
 * The rings css is different in the new leaflet.js