arrange domains for progress bar

JBGruber · Nov 6, 2023 · f2ee3a0 · f2ee3a0
1 parent 7de0c0f
commit f2ee3a0
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/R/deliver.R b/R/deliver.R
@@ -82,6 +82,8 @@ pb_deliver.data.frame <- function(x, try_default = TRUE, ignore_fails = FALSE, v
   }
 
   x$class <- classify(x$domain)
+  # order by domain for progress bar
+  x <- dplyr::arrange(x, domain)
 
   deliver_fun <- ifelse(ignore_fails, s_pb_deliver_paper, pb_deliver_paper)