Fix Crosstalk + Shiny redraw issue (#584)

jcheng5 · schloerke · commit a4cb80c01894 · 2018-09-10T13:22:25.000-04:00
Fixes rstudio/crosstalk#58
diff --git a/NEWS b/NEWS
@@ -1,3 +1,11 @@
+leaflet 2.0.3
+--------------------------------------------------------------------------------
+
+BUG FIXES and IMPROVEMENTS
+* Fixed [rstudio/crosstalk#58](https://github.com/rstudio/crosstalk/issues/58), which caused Leaflet maps that used Crosstalk shared data in Shiny apps, to be redrawn at incorrect times.
+
+
+
 leaflet 2.0.2
 --------------------------------------------------------------------------------
 
diff --git a/R/normalize-SharedData.R b/R/normalize-SharedData.R
@@ -1,6 +1,6 @@
 #' @export
 metaData.SharedData <- function(obj) {
-  metaData(obj$data(withSelection = TRUE, withFilter = FALSE, withKey = TRUE))
+  metaData(obj$data(withSelection = FALSE, withFilter = FALSE, withKey = TRUE))
 }
 
 #' @export

Original file line number	Diff line number	Diff line change
`@@ -1,6 +1,6 @@`
`1`	`1`	`#' @export`
`2`	`2`	`metaData.SharedData <- function(obj) {`
`3`		`- metaData(obj$data(withSelection = TRUE, withFilter = FALSE, withKey = TRUE))`
	`3`	`+ metaData(obj$data(withSelection = FALSE, withFilter = FALSE, withKey = TRUE))`
`4`	`4`	`}`
`5`	`5`
`6`	`6`	`#' @export`