Don't run previewColors when testing

jcheng5 · jcheng5 · commit 99b7f95685fd · 2015-06-23T12:42:47.000-07:00
diff --git a/R/colors.R b/R/colors.R
@@ -248,6 +248,7 @@ colorFactor = function(palette, domain, levels = NULL, ordered = FALSE,
 #' pal = colorBin("Greens", domain = 0:100)
 #' pal(runif(10, 60, 100))
 #'
+#' \donttest{
 #' # Exponential distribution, mapped continuously
 #' previewColors(colorNumeric("Blues", domain = NULL), sort(rexp(16)))
 #' # Exponential distribution, mapped by interval
@@ -261,6 +262,7 @@ colorFactor = function(palette, domain, levels = NULL, ordered = FALSE,
 #' previewColors(colorFactor("RdYlBu", domain = NULL), factor(LETTERS[1:5], levels=LETTERS))
 #' # ...or the domain is stated explicitly.
 #' previewColors(colorFactor("RdYlBu", levels = LETTERS), LETTERS[1:5])
+#' }
 #' @rdname colorNumeric
 #' @name colorNumeric
 NULL
diff --git a/man/colorNumeric.Rd b/man/colorNumeric.Rd
@@ -95,19 +95,20 @@ The \code{palette} argument can be any of the following:
 pal = colorBin("Greens", domain = 0:100)
 pal(runif(10, 60, 100))
 
+\donttest{
 # Exponential distribution, mapped continuously
 previewColors(colorNumeric("Blues", domain = NULL), sort(rexp(16)))
 # Exponential distribution, mapped by interval
 previewColors(colorBin("Blues", domain = NULL, bins = 4), sort(rexp(16)))
 # Exponential distribution, mapped by quantile
 previewColors(colorQuantile("Blues", domain = NULL), sort(rexp(16)))
 
-# Categorical data; by default, the values being colored span the
-# gamut...
+# Categorical data; by default, the values being colored span the gamut...
 previewColors(colorFactor("RdYlBu", domain = NULL), LETTERS[1:5])
 # ...unless the data is a factor, without droplevels...
 previewColors(colorFactor("RdYlBu", domain = NULL), factor(LETTERS[1:5], 
     levels = LETTERS))
 # ...or the domain is stated explicitly.
 previewColors(colorFactor("RdYlBu", levels = LETTERS), LETTERS[1:5])
 }
+}
