diff --git a/NAMESPACE b/NAMESPACE index 0cb344b..480ca5d 100644 --- a/NAMESPACE +++ b/NAMESPACE @@ -112,7 +112,6 @@ importFrom(plyr,dlply) importFrom(plyr,is.discrete) importFrom(plyr,is.formula) importFrom(plyr,join) -importFrom(plyr,ldply) importFrom(plyr,llply) importFrom(png,readPNG) importFrom(purrr,cross_df) diff --git a/R/get_cloudmademap.R b/R/get_cloudmademap.R index 8c6e6ed..1e3d2f7 100644 --- a/R/get_cloudmademap.R +++ b/R/get_cloudmademap.R @@ -172,8 +172,8 @@ get_cloudmademap <- function( top = lonlat_upperleft$lat ) } - tileBboxes <- ldply(split(tilesNeeded,1:nrow(tilesNeeded)), - function(df) bboxOfTile(as.numeric(df))) + tileBboxes <- bind_rows(lapply(split(tilesNeeded,1:nrow(tilesNeeded)), + function(df) bboxOfTile(as.numeric(df)))) mbbox <- c( left = min(tileBboxes$left), bottom = min(tileBboxes$bottom), diff --git a/R/get_stamenmap.R b/R/get_stamenmap.R index e125829..3022bf1 100644 --- a/R/get_stamenmap.R +++ b/R/get_stamenmap.R @@ -558,7 +558,7 @@ retry_stamen_map_download <- function() { # ll.lon <- NULL; rm(ll.lon); # # # determine bounding box -# bbs <- ldply(tiles, function(x) attr(x, "bb")) +# bbs <- bind_rows(lapply(tiles, function(x) attr(x, "bb"))) # # bigbb <- data.frame( # ll.lat = min(bbs$ll.lat), diff --git a/R/ggmap-package.R b/R/ggmap-package.R index 7b05f38..151fc4e 100644 --- a/R/ggmap-package.R +++ b/R/ggmap-package.R @@ -3,7 +3,7 @@ #' @importFrom png readPNG #' @importFrom jpeg readJPEG #' @importFrom plyr arrange compact ddply desc dlply is.discrete is.formula join -#' ldply llply . +#' llply . #' @importFrom bitops bitOr bitShiftL bitShiftR bitAnd #' @importFrom grDevices as.raster extendrange gray rgb #' @importFrom stats time asOneSidedFormula