Tweak .check_package_parseRd() to also get encoding for base packages.

git-svn-id: https://svn.r-project.org/R/trunk@88467 00db46b3-68df-0310-9c12-caf00c1e9a41

Author: hornik

src/library/tools/R/QC.R

@@ -7177,11 +7177,9 @@ function(cfile, dir = NULL)
 .check_package_parseRd <-
 function(dir, silent = FALSE, def_enc = FALSE, minlevel = -1)
 {
-    if(file.exists(dfile <- file.path(dir, "DESCRIPTION"))) {
-        enc <- read.dcf(dfile)[1L, ]["Encoding"]
-        if(is.na(enc)) enc <- "ASCII"
-        else def_enc <- TRUE
-    } else enc <- "ASCII"
+    enc <- .get_package_metadata(dir)["Encoding"]
+    if(is.na(enc)) enc <- "ASCII"
+    else def_enc <- TRUE
     macros <- loadPkgRdMacros(dir)
     ## UGLY! FIXME: add (something like) 'dir' as argument to checkRd() below!
     oenv <- Sys.getenv("_R_RD_MACROS_PACKAGE_DIR_", unset = NA)