use unclass instead of lapply with identity

rstudio · Aug 28, 2023 · 2098c30 · 2098c30
1 parent 4cbed25
commit 2098c30
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/bundlePackage.R b/R/bundlePackage.R
@@ -115,5 +115,5 @@ availablePackages <- function(repos) {
 
 package_record <- function(name, lib_dir = NULL) {
   record <- packageDescription(name, lib.loc = lib_dir, encoding = "UTF-8")
-  lapply(record, identity)
+  unclass(record)
 }