Use only the package itself and the base packages for Rd xrefs without package anchors when generating static HTML.

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

Author: hornik

src/library/tools/R/install.R

@@ -3072,13 +3072,7 @@ if(FALSE) {
         if (!silent) message("    finding HTML links ...", appendLF = FALSE, domain = NA)
         Links <- findHTMLlinks(outDir, level = 0:1)
         if (!silent) message(" done")
-        .Links2 <- function() {
-            message("\n    finding level-2 HTML links ...", appendLF = FALSE, domain = NA)
-            Links2 <- findHTMLlinks(level = 2)
-            message(" done", domain = NA)
-            Links2
-        }
-        delayedAssign("Links2", .Links2())
+        Links2 <- character()
     }
 
     ## Rd objects may already have been installed.

src/library/tools/R/pkg2HTML.R

@@ -81,7 +81,7 @@
     ## obtained directly from the db, which is useful for non-installed packages.
     Links0 <- .build_links_index(Rd_contents(db), basename(pkgdir))
     Links <- c(Links0, findHTMLlinks(pkgdir, level = 1))
-    Links2 <- if (length(xLinks)) xLinks else findHTMLlinks(level = 2) 
+    Links2 <- xLinks
 
     rd2lines <- function(Rd, ...) {
         ## Rd2HTML() returns output location, which is not useful