From 23a9c1edd24979098da6f1f6880eae099554e540 Mon Sep 17 00:00:00 2001
From: Hadley Wickham <hadley@posit.co>
Date: Mon, 27 Feb 2023 17:36:21 -0600
Subject: [PATCH] Fix bug in bundlePackages() (#716)

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