fix Rd2pdf for source packages using \figure in man/*/*.Rd

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

Author: smeyer

src/library/tools/R/Rd2pdf.R

@@ -288,11 +288,12 @@
                          domain = NA)
                 macros <- loadPkgRdMacros(pkgdir)
                 macros <- initialRdMacros(pkglist, macros)
-           } else {
+            } else {
                 ## (Be nice and find Rd files & system macros also when 'pkgdir' is
                 ## not a package root directory.)
-                files <- c(Sys.glob(file.path(pkgdir, "*.Rd")),
-                           Sys.glob(file.path(pkgdir, "*.rd")))
+                mandir <- pkgdir
+                files <- c(Sys.glob(file.path(mandir, "*.Rd")),
+                           Sys.glob(file.path(mandir, "*.rd")))
                 if (!length(files))
                     stop("this package does not have either a ", sQuote("latex"),
                          " or a (source) ", sQuote("man"), " directory",
@@ -343,7 +344,7 @@
                                 macros = macros)
                 if (attr(res, "hasFigures")) {
                     lines <- readLines(outfilename)
-                    graphicspath <- file.path(dirname(paths[i]), "figures")
+                    graphicspath <- file.path(mandir, "figures")
                     writeLines(c(.file_path_to_LaTeX_graphicspath(graphicspath),
                                  lines),
                                outfilename)