Tweaks.

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

Author: hornik

src/library/tools/R/utils.R

@@ -2668,6 +2668,14 @@ function(dir, FUN, ..., pattern = NULL, verbose = FALSE,
     dir <- file_path_as_absolute(dir)
 
     dfiles <- Sys.glob(file.path(dir, "*", "DESCRIPTION"))
+    ## Hack to allow using also for base package sources.
+    if(!length(dfiles)) {
+        dfiles <- Sys.glob(file.path(dir, "*", "DESCRIPTION.in"))
+        ## Need to exclude 'translations', so simply match against the
+        ## known base package names.
+        dfiles <- dfiles[basename(dirname(dfiles)) %in%
+                         .get_standard_package_names()$base]
+    }
     if(!is.null(pattern))
         dfiles <- dfiles[grepl(pattern, basename(dirname(dfiles)))]
     paths <- dirname(dfiles)