make package_record delegate to packageDescription

rstudio · Aug 25, 2023 · 8f1ad14 · 8f1ad14
1 parent 448284c
commit 8f1ad14
Showing 1 changed file with 1 addition and 9 deletions.
diff --git a/R/bundlePackage.R b/R/bundlePackage.R
@@ -114,13 +114,5 @@ availablePackages <- function(repos) {
 }
 
 package_record <- function(name, lib_dir = NULL) {
-  path <- system.file("DESCRIPTION", package = name, lib.loc = lib_dir)
-  record <- as.list(as.data.frame(read.dcf(path)))
-  encoding <- record$Encoding
-  if (!is.null(encoding) && toupper(encoding) != "UTF-8") {
-    record <- lapply(record, function(item) {
-      iconv(item, from = encoding, to = "UTF-8")
-    })
-  }
-  record
+  packageDescription(name, lib.loc = lib_dir)
 }