set.seed() before sample() (#4502)

Author: yutannihilation

R/position-jitterdodge.R

@@ -13,6 +13,7 @@
 #' @inheritParams position_jitter
 #' @export
 #' @examples
+#' set.seed(596)
 #' dsub <- diamonds[sample(nrow(diamonds), 1000), ]
 #' ggplot(dsub, aes(x = cut, y = carat, fill = clarity)) +
 #'   geom_boxplot(outlier.size = 0) +

R/scale-brewer.r

@@ -40,6 +40,7 @@
 #' @rdname scale_brewer
 #' @export
 #' @examples
+#' set.seed(596)
 #' dsamp <- diamonds[sample(nrow(diamonds), 1000), ]
 #' (d <- ggplot(dsamp, aes(carat, price)) +
 #'   geom_point(aes(colour = clarity)))

R/scale-hue.r

@@ -15,6 +15,7 @@
 #' @family colour scales
 #' @examples
 #' \donttest{
+#' set.seed(596)
 #' dsamp <- diamonds[sample(nrow(diamonds), 1000), ]
 #' (d <- ggplot(dsamp, aes(carat, price)) + geom_point(aes(colour = clarity)))
 #'

R/scale-shape.r

@@ -14,6 +14,7 @@
 #' @rdname scale_shape
 #' @export
 #' @examples
+#' set.seed(596)
 #' dsmall <- diamonds[sample(nrow(diamonds), 100), ]
 #'
 #' (d <- ggplot(dsmall, aes(carat, price)) + geom_point(aes(shape = cut)))

R/scale-viridis.r

@@ -20,6 +20,7 @@
 #' @export
 #' @examples
 #' # viridis is the default colour/fill scale for ordered factors
+#' set.seed(596)
 #' dsamp <- diamonds[sample(nrow(diamonds), 1000), ]
 #' ggplot(dsamp, aes(carat, price)) +
 #'   geom_point(aes(colour = clarity))