minor speedup in sort_chr() (avoid duplicate argument matching)

ropensci · Dec 23, 2024 · a00b5de · a00b5de
1 parent 4bc8bc9
commit a00b5de
Showing 1 changed file with 2 additions and 7 deletions.
diff --git a/R/utils_data.R b/R/utils_data.R
@@ -50,13 +50,8 @@ sort_chr <- function(x) {
   old_locale <- Sys.getlocale(category = "LC_COLLATE")
   on.exit(Sys.setlocale(category = "LC_COLLATE", locale = old_locale))
   Sys.setlocale(category = "LC_COLLATE", locale = "C")
-  sort.int(
-    x = as.character(x),
-    decreasing = FALSE,
-    na.last = NA,
-    method = "radix",
-    index.return = FALSE
-  )
+  x <- as.character(x)
+  x[order(x, na.last = NA, decreasing = FALSE, method = "radix")]
 }
 
 enclass <- function(x, class) {