perf: cut out data-masking&tidyselect in arrange*canonical*epi_df

Author: brookslogan

R/methods-epi_df.R

@@ -415,7 +415,7 @@ arrange_row_canonical.default <- function(x, ...) {
 arrange_row_canonical.epi_df <- function(x, ...) {
   rlang::check_dots_empty()
   cols <- key_colnames(x)
-  x %>% dplyr::arrange(dplyr::across(dplyr::all_of(cols)))
+  x[vctrs::vec_order(x[cols]), ]
 }
 
 arrange_col_canonical <- function(x, ...) {
@@ -434,8 +434,10 @@ arrange_col_canonical.default <- function(x, ...) {
 #' @export
 arrange_col_canonical.epi_df <- function(x, ...) {
   rlang::check_dots_empty()
-  cols <- key_colnames(x)
-  x %>% dplyr::relocate(dplyr::all_of(cols), .before = 1)
+  all_names <- names(x)
+  key_names <- key_colnames(x)
+  val_names <- all_names[!all_names %in% key_names]
+  x[c(key_names, val_names)]
 }
 
 #' Group an `epi_df` object by default keys