cope with duplicated aliases

smeyer · smeyer · commit f078532a40c2 · 2024-12-02T08:53:12.000Z
git-svn-id: https://svn.r-project.org/R/trunk@87414 00db46b3-68df-0310-9c12-caf00c1e9a41
diff --git a/src/library/tools/R/Rd2HTML.R b/src/library/tools/R/Rd2HTML.R
@@ -1322,7 +1322,7 @@ Rd2HTML <-
 	inPara <- FALSE
         if (!standalone) {
             ## create empty spans with aliases as id, so that we can link
-            for (a in trimws(unlist(Rd[ which(sections == "\\alias") ]))) {
+            for (a in unique(trimws(unlist(Rd[ which(sections == "\\alias") ])))) {
                 if (endsWith(a, "-package")) info$pkgsummary <- TRUE
                 of0("<span id='", topic2id(a), "'></span>")
             }

Original file line number	Diff line number	Diff line change
`@@ -1322,7 +1322,7 @@ Rd2HTML <-`
`1322`	`1322`	`inPara <- FALSE`
`1323`	`1323`	`if (!standalone) {`
`1324`	`1324`	`## create empty spans with aliases as id, so that we can link`
`1325`		`- for (a in trimws(unlist(Rd[ which(sections == "\\alias") ]))) {`
	`1325`	`+ for (a in unique(trimws(unlist(Rd[ which(sections == "\\alias") ])))) {`
`1326`	`1326`	`if (endsWith(a, "-package")) info$pkgsummary <- TRUE`
`1327`	`1327`	`of0("<span id='", topic2id(a), "'></span>")`
`1328`	`1328`	`}`