Latest build

R/snapshot_create.R

@@ -8,6 +8,7 @@
 #'    packages
 #'
 #' @return A list containing the current state of the project packages
+#' @import parallel
 #' @export
 snapshot_create <- function(installOpts = list(Ncpus = parallel::detectCores())) {
   lastSnapshot <- snapshot_latest()
@@ -16,7 +17,7 @@ snapshot_create <- function(installOpts = list(Ncpus = parallel::detectCores()))
     customSources <- rbind(customSources, lastSnapshot$packages$custom)
   }
   packages <- compile_imports(customSources, installOpts)
-  names(packages) <- c("core", "direct", "indirect", "custom")
+  names(packages) <- c("core", "direct", "indirect", "custom", "install_order")
   if (nrow(packages$core) == 0) {
     packages$core <- NULL
   }
@@ -30,9 +31,6 @@ snapshot_create <- function(installOpts = list(Ncpus = parallel::detectCores()))
     packages$custom <- NULL
   }
   description <- trimws(readline("Please provide a description for the snapshot (optional): "))
-  if (nchar(description) == 0) {
-    description <- NULL
-  }
   return(list(
     timestamp = Sys.time(),
     description = description,