Fix bug in bundlePackages() (#716)

Introduced in #670.
rstudio · Feb 27, 2023 · 23a9c1e · 23a9c1e
1 parent d8fef5d
commit 23a9c1e
Showing 1 changed file with 3 additions and 1 deletion.
diff --git 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