Fix examples for R CMD check --run-donttest

Author: wch

R/annotation-custom.r

@@ -24,13 +24,15 @@ NULL
 #' # Dummy plot
 #' base <- qplot(1:10, 1:10, geom = "blank") + theme_bw()
 #' # Adding a table
-#' \donttest{if (require(gridExtra)) {
+#' \dontrun{
+#'  if (require(gridExtra)) {
 #' base + annotation_custom(grob = tableGrob(head(iris[ ,1:3])),
 #'         xmin = 3, xmax = 6, ymin = 2, ymax = 8)
 #' # full panel
 #' base + annotation_custom(grob = roundrectGrob(),
 #'           xmin = -Inf, xmax = Inf, ymin = -Inf, ymax = Inf)
-#' }}
+#' }
+#' }
 #' # Inset plot
 #' g <- ggplotGrob(qplot(1, 1) +
 #'   theme(plot.background = element_rect(colour = "black")))

R/stat-smooth.r

@@ -84,7 +84,9 @@
 #'
 #' # Use qplot instead
 #' qplot(qsec, wt, data=mtcars, geom=c("smooth", "point"))
+#' }
 #'
+#' \dontrun{
 #' # Example with logistic regression
 #' data("kyphosis", package="rpart")
 #' qplot(Age, Kyphosis, data=kyphosis)

R/theme.r

@@ -286,7 +286,9 @@ print.theme <- function(x, ...) str(x)
 #' mytheme <- theme_grey() + theme(plot.title = element_text(colour = "red"))
 #' p + mytheme
 #'
+#' }
 #'
+#' \dontrun{
 #' ## Run this to generate a graph of the element inheritance tree
 #' build_element_graph <- function(tree) {
 #'   require(igraph)

R/translate-qplot-lattice.r

@@ -6,7 +6,7 @@
 #'
 #' @name translate_qplot_lattice
 #' @examples
-#' \donttest{
+#' \dontrun{
 #' library(lattice)
 #'
 #' xyplot(rating ~ year, data=movies)

man/annotation_custom.Rd

@@ -35,13 +35,15 @@ Inf values can be used to fill the full plot panel (see examples).
 # Dummy plot
 base <- qplot(1:10, 1:10, geom = "blank") + theme_bw()
 # Adding a table
-\donttest{if (require(gridExtra)) {
+\dontrun{
+ if (require(gridExtra)) {
 base + annotation_custom(grob = tableGrob(head(iris[ ,1:3])),
         xmin = 3, xmax = 6, ymin = 2, ymax = 8)
 # full panel
 base + annotation_custom(grob = roundrectGrob(),
           xmin = -Inf, xmax = Inf, ymin = -Inf, ymax = Inf)
-}}
+}
+}
 # Inset plot
 g <- ggplotGrob(qplot(1, 1) +
   theme(plot.background = element_rect(colour = "black")))

man/stat_smooth.Rd

@@ -112,7 +112,9 @@ c + stat_smooth(method=lm, fullrange=TRUE, alpha = 0.1) + geom_point()
 
 # Use qplot instead
 qplot(qsec, wt, data=mtcars, geom=c("smooth", "point"))
+}
 
+\dontrun{
 # Example with logistic regression
 data("kyphosis", package="rpart")
 qplot(Age, Kyphosis, data=kyphosis)

man/theme.Rd

@@ -250,7 +250,9 @@ k + theme(panel.margin.y = unit(0, "lines"))
 mytheme <- theme_grey() + theme(plot.title = element_text(colour = "red"))
 p + mytheme
 
+}
 
+\dontrun{
 ## Run this to generate a graph of the element inheritance tree
 build_element_graph <- function(tree) {
   require(igraph)

man/translate_qplot_lattice.Rd

@@ -9,7 +9,7 @@ interface. ggplot2 does not because the formula does not generalise well
 to more complicated situations.
 }
 \examples{
-\donttest{
+\dontrun{
 library(lattice)
 
 xyplot(rating ~ year, data=movies)