metaData.SharedData wasn't calling metaData itself

jcheng5 · jcheng5 · commit 00bb41c17935 · 2017-04-06T10:29:22.000-07:00
diff --git a/NEWS b/NEWS
@@ -4,6 +4,9 @@ leaflet 1.1.1
 * Add `groupOptions` parameter, currently the only option is letting you specify
   zoom levels at which a group should be visible.
 
+* Fix bug with accessing columns in formulas when the data source is a Crosstalk
+  SharedData object wrapping a spatial data frame or sf object.
+
 leaflet 1.1.0
 --------------------------------------------------------------------------------
 
diff --git a/R/normalize-SharedData.R b/R/normalize-SharedData.R
@@ -1,6 +1,6 @@
 #' @export
 metaData.SharedData <- function(obj) {
-  obj$data(withSelection = TRUE, withFilter = FALSE, withKey = TRUE)
+  metaData(obj$data(withSelection = TRUE, 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`		`- obj$data(withSelection = TRUE, withFilter = FALSE, withKey = TRUE)`
	`3`	`+ metaData(obj$data(withSelection = TRUE, withFilter = FALSE, withKey = TRUE))`
`4`	`4`	`}`
`5`	`5`
`6`	`6`	`#' @export`