Note percentages in image height/width attributes (v.Nu complains about these).

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

Author: hornik

src/library/tools/R/RdConv2.R

@@ -912,7 +912,17 @@ checkRd <- function(Rd, defines = .Platform$OS.type, stages = "render",
                "\\deqn" =,
                "\\figure" = {
                    checkContent(block[[1L]], tag)
-                   if (length(block) > 1L) checkContent(block[[2L]], tag)
+                   if(length(block) > 1L) {
+                       checkContent(block[[2L]], tag)
+                       if(length(txt <- as.character(block[[2L]])) &&
+                          startsWith(txt[1L], "options: ")) {
+                           txt <- grepv("(height|width) *= *['\"]?[[:digit:]]+%",
+                                        paste(txt, collapse = "\n"))
+                           if(length(txt))
+                               warnRd(block, Rdfile, level = -1,
+                                      "height/width attributes should be in pixels")
+                       }
+                   }
                },
                "\\tabular" = checkTabular(block),
                "\\subsection" = {