From 998b0927c97cc325dbf77f441f1e7dc201e8e406 Mon Sep 17 00:00:00 2001
From: Craig Williams <craig@avsdev.uk>
Date: Mon, 3 Feb 2025 12:13:32 +0000
Subject: [PATCH] Fixed custom sources table being nerfed by json
 encoding/decoding process

---
 DESCRIPTION         | 2 +-
 R/snapshot_create.R | 7 +++++--
 2 files changed, 6 insertions(+), 3 deletions(-)

diff --git a/DESCRIPTION b/DESCRIPTION
index e5bab9b..06323fc 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -1,7 +1,7 @@
 Package: Rpacman
 Type: Package
 Title: Very simple package manager for R
-Version: 1.0.15
+Version: 1.0.16
 Date: 2025-01-30
 Authors@R: person("Craig", "Williams", email = "craig@avsdev.uk", role = c("aut", "cre"))
 URL: https://avsdev.uk/R/Rpacman
diff --git a/R/snapshot_create.R b/R/snapshot_create.R
index a1c9fab..c6f6794 100644
--- a/R/snapshot_create.R
+++ b/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
   ))
-}
\ No newline at end of file
+}