From 4fe9c7507378ece617a8236bca711e5e659e7b04 Mon Sep 17 00:00:00 2001 From: Michael Chirico Date: Tue, 27 May 2025 13:08:16 -0700 Subject: [PATCH 1/4] Change ldply(...) --> bind_rows(lapply(...)) --- R/get_cloudmademap.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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), From 7ccff5ab5000ade8c0304b2360457cc91f5ffcdc Mon Sep 17 00:00:00 2001 From: Michael Chirico Date: Tue, 27 May 2025 13:09:47 -0700 Subject: [PATCH 2/4] second call site --- R/get_stamenmap.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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), From a876d76a622844d0ab8006fdae3ee24b767958f2 Mon Sep 17 00:00:00 2001 From: Michael Chirico Date: Tue, 27 May 2025 13:10:05 -0700 Subject: [PATCH 3/4] remove from NAMESPACE --- R/ggmap-package.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 From 11eb1b4fbac0e15b1f9444c2c595534a4fcfb6ec Mon Sep 17 00:00:00 2001 From: Michael Chirico Date: Tue, 27 May 2025 13:10:26 -0700 Subject: [PATCH 4/4] remove from NAMESPACE --- NAMESPACE | 1 - 1 file changed, 1 deletion(-) 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)