Fix label formulas with crosstalk data #402

kent37 · kent37 · commit 8d8cb9608991 · 2017-03-18T20:48:30.000-04:00
diff --git a/NAMESPACE b/NAMESPACE
@@ -2,14 +2,14 @@
 
 S3method("[",leaflet_awesome_icon_set)
 S3method("[",leaflet_icon_set)
+S3method(metaData,SharedData)
 S3method(metaData,SpatialLinesDataFrame)
 S3method(metaData,SpatialPointsDataFrame)
 S3method(metaData,SpatialPolygonsDataFrame)
 S3method(metaData,data.frame)
 S3method(metaData,list)
 S3method(metaData,map)
 S3method(metaData,sf)
-S3method(metaData,sharedData)
 S3method(pointData,POINT)
 S3method(pointData,SharedData)
 S3method(pointData,SpatialPoints)
diff --git a/R/normalize-SharedData.R b/R/normalize-SharedData.R
@@ -1,5 +1,5 @@
 #' @export
-metaData.sharedData <- function(obj) {
+metaData.SharedData <- function(obj) {
   obj$data(withSelection = TRUE, withFilter = FALSE, withKey = TRUE)
 }
 

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