Tweaks.

hornik · hornik · commit 5da03b2602af · 2025-02-15T09:07:08.000Z
git-svn-id: https://svn.r-project.org/R/trunk@87720 00db46b3-68df-0310-9c12-caf00c1e9a41
diff --git a/src/library/tools/R/Rd.R b/src/library/tools/R/Rd.R
@@ -1205,7 +1205,7 @@ function(x, kind)
 {
     wrk <- function(a, p) {
         cbind(unlist(a, use.names = FALSE),
-              rep.int(paste0(p, "::", names(a)), lengths(a)))
+              rep.int(sprintf("%s::%s", p, names(a)), lengths(a)))
     }
     y <- as.data.frame(do.call(rbind,
                                Map(wrk, x, names(x), USE.NAMES = FALSE)))

Original file line number	Diff line number	Diff line change
`@@ -1205,7 +1205,7 @@ function(x, kind)`
`1205`	`1205`	`{`
`1206`	`1206`	`wrk <- function(a, p) {`
`1207`	`1207`	`cbind(unlist(a, use.names = FALSE),`
`1208`		`- rep.int(paste0(p, "::", names(a)), lengths(a)))`
	`1208`	`+ rep.int(sprintf("%s::%s", p, names(a)), lengths(a)))`
`1209`	`1209`	`}`
`1210`	`1210`	`y <- as.data.frame(do.call(rbind,`
`1211`	`1211`	`Map(wrk, x, names(x), USE.NAMES = FALSE)))`