From 5dddba71f998db80339f235ac9663d59b706b2fd Mon Sep 17 00:00:00 2001
From: Michael Chirico <michaelchirico4@gmail.com>
Date: Mon, 2 Jun 2025 16:42:21 -0700
Subject: [PATCH] Use base::order() over arrange()+desc() from plyr

---
 NAMESPACE         | 2 --
 R/get_stadiamap.R | 2 +-
 R/ggmap-package.R | 2 +-
 3 files changed, 2 insertions(+), 4 deletions(-)

diff --git a/NAMESPACE b/NAMESPACE
index 0cb344b..c352292 100644
--- a/NAMESPACE
+++ b/NAMESPACE
@@ -104,10 +104,8 @@ importFrom(httr,warn_for_status)
 importFrom(jpeg,readJPEG)
 importFrom(magrittr,"%>%")
 importFrom(plyr,.)
-importFrom(plyr,arrange)
 importFrom(plyr,compact)
 importFrom(plyr,ddply)
-importFrom(plyr,desc)
 importFrom(plyr,dlply)
 importFrom(plyr,is.discrete)
 importFrom(plyr,is.formula)
diff --git a/R/get_stadiamap.R b/R/get_stadiamap.R
index 3ae4eb9..f1e6ace 100644
--- a/R/get_stadiamap.R
+++ b/R/get_stadiamap.R
@@ -420,7 +420,7 @@ stitch <- function(tiles){
   )
 
   # determine positions of tile in slate (aggregate)
-  order <- as.numeric( arrange(bbs, desc(ll.lat), ll.lon)$.id )
+  order <- as.numeric( bbs$.id[order(-bbs$ll.lat, bbs$ll.lon)] )
   tiles <- tiles[order]
   tiles <- lapply(tiles, as.matrix) # essential for cbind/rbind to work properly!
 
diff --git a/R/ggmap-package.R b/R/ggmap-package.R
index 7b05f38..6064fce 100644
--- a/R/ggmap-package.R
+++ b/R/ggmap-package.R
@@ -2,7 +2,7 @@
 #' @name ggmap
 #' @importFrom png readPNG
 #' @importFrom jpeg readJPEG
-#' @importFrom plyr arrange compact ddply desc dlply is.discrete is.formula join
+#' @importFrom plyr compact ddply dlply is.discrete is.formula join
 #'   ldply llply .
 #' @importFrom bitops bitOr bitShiftL bitShiftR bitAnd
 #' @importFrom grDevices as.raster extendrange gray rgb