Export all normalize methods

Author: hadley

NAMESPACE

@@ -2,13 +2,31 @@
 
 S3method("[",leaflet_awesome_icon_set)
 S3method("[",leaflet_icon_set)
+S3method(doResolveFormula,SharedData)
+S3method(doResolveFormula,SpatialLinesDataFrame)
+S3method(doResolveFormula,SpatialPointsDataFrame)
+S3method(doResolveFormula,SpatialPolygonsDataFrame)
+S3method(doResolveFormula,data.frame)
+S3method(doResolveFormula,list)
+S3method(doResolveFormula,map)
 S3method(pointData,SharedData)
 S3method(pointData,SpatialPoints)
 S3method(pointData,SpatialPointsDataFrame)
 S3method(pointData,data.frame)
 S3method(pointData,default)
 S3method(pointData,matrix)
+S3method(polygonData,Line)
+S3method(polygonData,Lines)
+S3method(polygonData,Polygon)
+S3method(polygonData,Polygons)
 S3method(polygonData,SharedData)
+S3method(polygonData,SpatialLines)
+S3method(polygonData,SpatialLinesDataFrame)
+S3method(polygonData,SpatialPolygons)
+S3method(polygonData,SpatialPolygonsDataFrame)
+S3method(polygonData,default)
+S3method(polygonData,map)
+S3method(polygonData,matrix)
 export("%>%")
 export(JS)
 export(WMSTileOptions)

R/normalize.R

@@ -32,28 +32,37 @@ doResolveFormula <- function(data, f) {
   UseMethod("doResolveFormula")
 }
 
+#' @export
 doResolveFormula.data.frame <- function(data, f) {
   eval(f[[2]], data, environment(f))
 }
 
+#' @export
 doResolveFormula.SharedData <- function(data, f) {
   doResolveFormula(data$data(withSelection = TRUE, withFilter = FALSE, withKey = TRUE), f)
 }
 
+#' @export
 doResolveFormula.map <- function(data, f) {
   eval(f[[2]], data, environment(f))
 }
 
+#' @export
 doResolveFormula.list <- function(data, f) {
   eval(f[[2]], data, environment(f))
 }
 
-doResolveFormula.SpatialLinesDataFrame <-
-doResolveFormula.SpatialPolygonsDataFrame <-
+#' @export
 doResolveFormula.SpatialPointsDataFrame <- function(data, f) {
   doResolveFormula(data@data, f)
 }
 
+#' @export
+doResolveFormula.SpatialLinesDataFrame <- doResolveFormula.SpatialPointsDataFrame
+
+#' @export
+doResolveFormula.SpatialPolygonsDataFrame <- doResolveFormula.SpatialPointsDataFrame
+
 #' Given a data object and lng/lat arguments (which may be NULL [meaning infer
 #' from data], formula [which should be evaluated with respect to the data], or
 #' vector data [which should be used as-is]) return a lng/lat data frame.
@@ -172,30 +181,36 @@ polygonData <- function(obj) {
   UseMethod("polygonData")
 }
 
+#' @export
 polygonData.default <- function(obj) {
   stop("Don't know how to get path data from object of class ", class(obj)[[1]])
 }
+#' @export
 polygonData.matrix <- function(obj) {
   makePolyList(pointData.matrix(obj))
 }
+#' @export
 polygonData.Polygon <- function(obj) {
   coords = polygon2coords(obj)
   structure(
     list(list(coords)),
     bbox = attr(coords, "bbox", exact = TRUE)
   )
 }
+#' @export
 polygonData.Polygons <- function(obj) {
   coords = polygons2coords(obj)
   structure(
     list(structure(coords, bbox = NULL)),
     bbox = attr(coords, "bbox", exact = TRUE)
   )
 }
+#' @export
 polygonData.SpatialPolygons <- function(obj) {
   lapply(obj@polygons, polygons2coords, bbox = FALSE) %>%
     structure(bbox = obj@bbox)
 }
+#' @export
 polygonData.SpatialPolygonsDataFrame <- function(obj) {
   #polygonData(sp::polygons(obj))
   if(length(obj@polygons)>0) {
@@ -205,28 +220,33 @@ polygonData.SpatialPolygonsDataFrame <- function(obj) {
     structure(list(), bbox=obj@bbox)
   }
 }
+#' @export
 polygonData.map <- function(obj) {
   polygonData(cbind(obj$x, obj$y))
 }
 
+#' @export
 polygonData.Line <- function(obj) {
   coords = line2coords(obj)
   structure(
     list(list(coords)),
     bbox = attr(coords, "bbox", exact = TRUE)
   )
 }
+#' @export
 polygonData.Lines <- function(obj) {
   coords = lines2coords(obj)
   structure(
     list(structure(coords, bbox = NULL)),
     bbox = attr(coords, "bbox", exact = TRUE)
   )
 }
+#' @export
 polygonData.SpatialLines <- function(obj) {
   lapply(obj@lines, lines2coords, bbox = FALSE) %>%
     structure(bbox = obj@bbox)
 }
+#' @export
 polygonData.SpatialLinesDataFrame <- function(obj) {
   if(length(obj@lines)>0) {
     polygonData(sp::SpatialLines(obj@lines))