From c9939b9f1953a94f0d6ba87dbdfe8300d5c07228 Mon Sep 17 00:00:00 2001
From: Hadley Wickham <h.wickham@gmail.com>
Date: Mon, 27 Feb 2023 17:24:22 -0600
Subject: [PATCH] Fix bug in bundlePackages()

Introduced in #670.
---
 R/bundlePackage.R | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/R/bundlePackage.R b/R/bundlePackage.R
index 02f0c8af..439c9aaf 100644
--- a/R/bundlePackage.R
+++ b/R/bundlePackage.R
@@ -38,7 +38,9 @@ bundlePackages <- function(appDir,
   github_cols <- grep("Github", colnames(deps), perl = TRUE, value = TRUE)
   packages <- deps[c("Source", "Repository", github_cols, "description")]
   packages_list <- lapply(seq_len(nrow(packages)), function(i) {
-    as.list(packages[i, , drop = FALSE])
+    out <- as.list(packages[i, , drop = FALSE])
+    out$description <- out$description[[1]]
+    out
   })
   names(packages_list) <- deps$Package
   packages_list