Fixed custom sources table being nerfed by json encoding/decoding process

R/snapshot_create.R

@@ -17,7 +17,10 @@ snapshot_create <- function(installOpts = list(Ncpus = parallel::detectCores()))
   lastSnapshot <- snapshot_latest()
   customSources <- empty_sources()
   if (!is.null(lastSnapshot) && "custom" %in% names(lastSnapshot$packages)) {
-    customSources <- rbind(customSources, lastSnapshot$packages$custom)
+    customSources <- rbind(
+      customSources,
+      do.call(rbind, lapply(lastSnapshot$packages$custom, data.frame))
+    )
   }
   packages <- compile_imports(customSources, installOpts)
   names(packages) <- c("core", "direct", "indirect", "custom", "install_order")
@@ -40,4 +43,4 @@ snapshot_create <- function(installOpts = list(Ncpus = parallel::detectCores()))
     R_version = paste(R.version$major, R.version$minor, sep = "."),
     packages = packages
   ))
-}
+}