sprinkle comments in examples

Author: teunbrand

R/theme-elements.R

@@ -28,17 +28,21 @@
 #'   calculating final element state.
 #' @return An S3 object of class `element`, `rel`, or `margin`.
 #' @examples
+#' # A standard plot
 #' plot <- ggplot(mpg, aes(displ, hwy)) + geom_point()
 #'
+#' # Turning off theme elements by setting them to blank
 #' plot + theme(
 #'   panel.background = element_blank(),
 #'   axis.text = element_blank()
 #' )
 #'
+#' # Text adjustments
 #' plot + theme(
 #'   axis.text = element_text(colour = "red", size = rel(1.5))
 #' )
 #'
+#' # Turning on the axis line with an arrow
 #' plot + theme(
 #'   axis.line = element_line(arrow = arrow())
 #' )