Skip to content
Browse files

Fixes for R CMD check

  • Loading branch information...
1 parent f91803b commit 64ad8d3dd8bb49752a1ac8bb3866eaf9bab41c34 @wch wch committed
Showing with 8 additions and 8 deletions.
  1. +1 −1 R/annotation-custom.r
  2. +1 −1 R/guide-colorbar.r
  3. +1 −1 R/guide-legend.r
  4. +1 −1 R/theme.r
  5. +1 −1 man/annotation_custom.Rd
  6. +1 −1 man/guide_colourbar.Rd
  7. +1 −1 man/guide_legend.Rd
  8. +1 −1 man/theme_update.Rd
View
2 R/annotation-custom.r
@@ -34,7 +34,7 @@ NULL
#' }
#' # Inset plot
#' g <- ggplotGrob(qplot(1, 1) +
-#' theme(plot.background = element_rect(col = "black")))
+#' theme(plot.background = element_rect(colour = "black")))
#' base +
#' annotation_custom(grob = g, xmin = 1, xmax = 10, ymin = 8, ymax = 10)
annotation_custom <- function (grob, xmin = -Inf, xmax = Inf, ymin = -Inf, ymax = Inf) {
View
2 R/guide-colorbar.r
@@ -67,7 +67,7 @@
#' p1 + guides(fill = guide_colorbar(label.position = "left"))
#'
#' # label theme
-#' p1 + guides(fill = guide_colorbar(label.theme = element_text(col="blue")))
+#' p1 + guides(fill = guide_colorbar(label.theme = element_text(colour = "blue", angle = 0)))
#'
#' # small number of bins
#' p1 + guides(fill = guide_colorbar(nbin = 3))
View
2 R/guide-legend.r
@@ -86,7 +86,7 @@
#'
#' # title text styles via element_text
#' p1 + guides(fill = guide_legend(
-#' title.theme = element_text(size=15, face="italic", col="red", angle=45)))
+#' title.theme = element_text(size=15, face="italic", colour = "red", angle = 45)))
#'
#' # label position
#' p1 + guides(fill = guide_legend(label.position = "bottom"))
View
2 R/theme.r
@@ -21,7 +21,7 @@
#' qplot(mpg, wt, data=mtcars, colour=mpg) +
#' theme(legend.position=c(0.95, 0.95), legend.justification = c(1, 1))
#' last_plot() +
-#' theme(legend.background = element_rect(fill = "white", col="white", size = 3))
+#' theme(legend.background = element_rect(fill = "white", colour = "white", size = 3))
theme_update <- function(...) {
# Make a call to theme, then add to theme
theme_set(theme_get() %+replace% do.call(theme, list(...)))
View
2 man/annotation_custom.Rd
@@ -47,7 +47,7 @@ base + annotation_custom(grob = roundrectGrob(),
}
# Inset plot
g <- ggplotGrob(qplot(1, 1) +
- theme(plot.background = element_rect(col = "black")))
+ theme(plot.background = element_rect(colour = "black")))
base +
annotation_custom(grob = g, xmin = 1, xmax = 10, ymin = 8, ymax = 10)
}
View
2 man/guide_colourbar.Rd
@@ -158,7 +158,7 @@ p1 + guides(fill = guide_colorbar(ticks = FALSE))
p1 + guides(fill = guide_colorbar(label.position = "left"))
# label theme
-p1 + guides(fill = guide_colorbar(label.theme = element_text(col="blue")))
+p1 + guides(fill = guide_colorbar(label.theme = element_text(colour = "blue", angle = 0)))
# small number of bins
p1 + guides(fill = guide_colorbar(nbin = 3))
View
2 man/guide_legend.Rd
@@ -135,7 +135,7 @@ p1 + guides(fill = guide_legend(title = "LEFT", title.position = "left"))
# title text styles via element_text
p1 + guides(fill = guide_legend(
- title.theme = element_text(size=15, face="italic", col="red", angle=45)))
+ title.theme = element_text(size=15, face="italic", colour = "red", angle = 45)))
# label position
p1 + guides(fill = guide_legend(label.position = "bottom"))
View
2 man/theme_update.Rd
@@ -35,7 +35,7 @@ theme_get()
qplot(mpg, wt, data=mtcars, colour=mpg) +
theme(legend.position=c(0.95, 0.95), legend.justification = c(1, 1))
last_plot() +
- theme(legend.background = element_rect(fill = "white", col="white", size = 3))
+ theme(legend.background = element_rect(fill = "white", colour = "white", size = 3))
}
\seealso{
\code{\link{\%+replace\%}} and \code{\link{+.gg}}

0 comments on commit 64ad8d3

Please sign in to comment.
Something went wrong with that request. Please try again.