removed order default

tidymodels · Oct 4, 2023 · 81749cc · 81749cc
1 parent 38366c2
commit 81749cc
Showing 1 changed file with 1 addition and 5 deletions.
diff --git a/R/pull.R b/R/pull.R
@@ -10,7 +10,7 @@ extract_details <- function(object, extractor) {
 
 # Grab the new results, make sure that they align row-wise with the rsample
 # object and then bind columns
-pulley <- function(resamples, res, col, order = NULL) {
+pulley <- function(resamples, res, col, order) {
   if (all(purrr::map_lgl(res, inherits, "simpleError"))) {
     res <-
       resamples %>%
@@ -23,10 +23,6 @@ pulley <- function(resamples, res, col, order = NULL) {
 
   id_cols <- grep("^id", names(resamples), value = TRUE)
 
-  if (is.null(order)) {
-    order <- vctrs::vec_order(resamples[id_cols])
-  }
-
   resamples <- vctrs::vec_slice(resamples, order)
 
   pulled_vals <- purrr::map(res, ~ .x[[col]]) %>% purrr::list_rbind()