Use rev(.packages())

Load the packages in the original order,
not the reverse of the original order.

R/config.R

@@ -47,7 +47,7 @@ config <- function(
   },
   cache = drake::get_cache(),
   parallelism = drake::default_parallelism(),
-  jobs = 1, packages = (.packages()), prework = character(0),
+  jobs = 1, packages = rev(.packages()), prework = character(0),
   prepend = character(0), command = drake::default_Makefile_command(),
   args = drake::default_system2_args(
     jobs = jobs,

R/dataframes_graph.R

@@ -126,7 +126,7 @@ dataframes_graph <- function(
     force(code)
   },
   cache = drake::get_cache(), jobs = 1,
-  parallelism = drake::default_parallelism(), packages = (.packages()),
+  parallelism = drake::default_parallelism(), packages = rev(.packages()),
   prework = character(0), build_times = TRUE, digits = 3,
   targets_only = FALSE,
   split_columns = FALSE, font_size = 20, config = NULL,

R/make.R

@@ -81,7 +81,7 @@
 #' \code{make(..., parallelism = "Makefile", jobs = 2, args = "--jobs=4")}
 #'
 #' @param packages character vector packages to load, in the order
-#' they should be loaded. Defaults to \code{(.packages())}, so you
+#' they should be loaded. Defaults to \code{rev(.packages())}, so you
 #' should not usually need to set this manually. Just call
 #' \code{\link{library}()} to load your packages before \code{make()}.
 #' However, sometimes packages need to be strictly forced to load
@@ -198,7 +198,7 @@ make <- function(
   cache = drake::get_cache(),
   parallelism = drake::default_parallelism(),
   jobs = 1,
-  packages = (.packages()),
+  packages = rev(.packages()),
   prework = character(0),
   prepend = character(0),
   command = drake::default_Makefile_command(),

R/outdated.R

@@ -45,7 +45,7 @@ outdated <-  function(
   cache = drake::get_cache(),
   parallelism = drake::default_parallelism(),
   jobs = 1,
-  packages = (.packages()),
+  packages = rev(.packages()),
   prework = character(0),
   config = NULL
 ){
@@ -151,7 +151,7 @@ missed <- function(
   },
   jobs = 1,
   parallelism = drake::default_parallelism(),
-  packages = (.packages()),
+  packages = rev(.packages()),
   prework = character(0),
   config = NULL
 ){

R/parallel_ui.R

@@ -223,7 +223,7 @@ max_useful_jobs <- function(
   },
   cache = drake::get_cache(),
   jobs = 1, parallelism = drake::default_parallelism(),
-  packages = (.packages()), prework = character(0), config = NULL,
+  packages = rev(.packages()), prework = character(0), config = NULL,
   imports = c("files", "all", "none")
 ){
   force(envir)

R/plotgraph.R

@@ -156,7 +156,7 @@ plot_graph <- function(
   },
   cache = drake::get_cache(),
   jobs = 1, parallelism = drake::default_parallelism(),
-  packages = (.packages()), prework = character(0),
+  packages = rev(.packages()), prework = character(0),
   config = NULL,
   file = character(0), selfcontained = FALSE,
   build_times = TRUE, digits = 3, targets_only = FALSE,

R/predict_runtime.R

@@ -79,7 +79,7 @@ predict_runtime <- function(
   parallelism = drake::default_parallelism(),
   jobs = 1,
   future_jobs = jobs,
-  packages = (.packages()),
+  packages = rev(.packages()),
   prework = character(0),
   config = NULL,
   digits = 3,
@@ -231,7 +231,7 @@ rate_limiting_times <- function(
   parallelism = drake::default_parallelism(),
   jobs = 1,
   future_jobs = jobs,
-  packages = (.packages()),
+  packages = rev(.packages()),
   prework = character(0),
   config = NULL,
   digits = 3,