perf: avoid arrange() overhead in check_ukey_unique()

Author: brookslogan

NAMESPACE

@@ -245,3 +245,4 @@ importFrom(vctrs,vec_data)
 importFrom(vctrs,vec_duplicate_any)
 importFrom(vctrs,vec_equal)
 importFrom(vctrs,vec_size)
+importFrom(vctrs,vec_sort)

R/epiprocess-package.R

@@ -28,6 +28,7 @@
 #' @importFrom tools toTitleCase
 #' @importFrom vctrs vec_data
 #' @importFrom vctrs vec_equal
+#' @importFrom vctrs vec_sort
 ## usethis namespace: end
 NULL
 

R/utils.R

@@ -1038,7 +1038,7 @@ check_ukey_unique <- function(x, ukey_names, end_cli_message = character()) {
     TRUE
   } else {
     # Fast check, slow error message.
-    arranged_ukeys <- arrange(x[ukey_names], across(all_of(ukey_names)))
+    arranged_ukeys <- vec_sort(x[ukey_names])
     if (!any(vec_equal(arranged_ukeys[-1L, ], arranged_ukeys[-nrow(arranged_ukeys), ]))) {
       TRUE
     } else {