Also NOTE missing Rd aliases for docType 'package'.

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

src/library/tools/R/QC.R

@@ -8939,13 +8939,7 @@ function(package, dir, lib.loc = NULL)
  out$files_with_duplicated_aliases <-
  files_with_duplicated_aliases
 
- ## <FIXME>
- ## This currently ignores package overview files:
- ## thousands of packages lack the required pkgname-package alias,
- ## which we might thus want to handle separately, also that
- ## some packages provide multiple files with docType "package" ...
- ## </FIXME>
- out$files_without_aliases <- files[nAliases == 0L & doctypes != "package"]
+ out$files_without_aliases <- files[nAliases == 0L]
 
  out
 }

src/library/tools/R/check.R

@@ -2312,7 +2312,16 @@ add_dummies <- function(dir, Log)
  sprintf("tools:::.check_Rd_metadata(dir = \"%s\")\n", pkgdir))
  out <- R_runR0(Rcmd, R_opts2, "R_DEFAULT_PACKAGES=NULL")
  if (length(out)) {
- warningLog(Log)
+ ## <FIXME>
+ ## We should really use R() instead if R_runR0() to get
+ ## the computed check results object itself.
+ ## Change eventually ...
+ ## </FIXME>
+ tag <- out[!startsWith(out, " ")]
+ if(any(grepl("duplicated", tag, fixed = TRUE)))
+ warningLog(Log)
+ else
+ noteLog(Log)
  printLog0(Log, paste(c(out, ""), collapse = "\n"))
  } else resultLog(Log, "OK")
  }