Generally need absolute paths in Rd srcrefs (revert part of c83069).

git-svn-id: https://svn.r-project.org/R/trunk@84990 00db46b3-68df-0310-9c12-caf00c1e9a41
r-devel · Aug 20, 2023 · 632d689 · 632d689
1 parent c3a18cc
commit 632d689
Showing 1 changed file with 3 additions and 5 deletions.
diff --git a/src/library/tools/R/RdConv2.R b/src/library/tools/R/RdConv2.R
@@ -435,14 +435,12 @@ prepare_Rd <-
     concordance <- NULL
     if (is.character(Rd)) {
         Rdfile <- Rd
-        srcfile <- srcfile(stripPathTo(Rdfile, "man"))
         ## do it this way to get info in internal warnings
-        Rd <- eval(substitute(parse_Rd(f, encoding = enc, fragment = frag, srcfile = src, ...),
-                              list(f = Rd, enc = encoding, frag = fragment, src = srcfile)))
+        Rd <- eval(substitute(parse_Rd(f, encoding = enc, fragment = frag, ...),
+                              list(f = Rd, enc = encoding, frag = fragment)))
     } else if(inherits(Rd, "connection")) {
         Rdfile <- summary(Rd)$description
-        srcfile <- srcfile(stripPathTo(Rdfile, "man"))
-        Rd <- parse_Rd(Rd, srcfile = srcfile, encoding = encoding, fragment=fragment, ...)
+        Rd <- parse_Rd(Rd, srcfile = srcfile, encoding = encoding, ...)
     } else {
     	Rdfile <- attr(Rd, "Rdfile")
     	concordance <- attr(Rd, "concordance")