Tweaks for c88178.

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

Author: hornik

src/library/tools/R/Rd.R

@@ -868,7 +868,12 @@ function(x)
             out <<- rbind(out, val)
         } else if(identical(tag, "\\linkS4class")) {
             arg <- as.character(e[[1L]])
-            val <- c(arg, sprintf("=%s-class", arg))
+            opt <- attr(e, "Rd_option")
+            val <- if(is.null(opt))
+                       c(arg, sprintf("=%s-class", arg))
+                   else
+                       c(sprintf("%s-class", arg),
+                         as.character(opt))
             out <<- rbind(out, val)
         }
         if(is.list(e)) lapply(e, recurse)