removed interactive() in example

dreamRs · Oct 28, 2024 · e8111a3 · e8111a3
1 parent 70323ef
commit e8111a3
Show file tree

Hide file tree

Showing 3 changed files with 19 additions and 18 deletions.
diff --git a/R/layers.R b/R/layers.R
@@ -994,6 +994,17 @@ v_heatmap <- function(vc,
 #' @export
 #'
 #' @example examples/v_wordcloud.R
+#' @examples
+#' \donttest{
+#' 
+#' # Use an image to shape the wordcloud
+#' vchart(top_cran_downloads) %>%
+#'   v_wordcloud(
+#'     aes(word = package, count = count, color = package),
+#'     maskShape = "https://jeroen.github.io/images/Rlogo.png"
+#'   )
+#'   
+#' }
 v_wordcloud <- function(vc,
                         mapping = NULL,
                         data = NULL,

diff --git a/examples/v_wordcloud.R b/examples/v_wordcloud.R
@@ -17,13 +17,3 @@ vchart(top_cran_downloads) %>%
       )
     )
   )
-
-
-if (interactive()) {
-  # Use an image to shape the wordcloud
-  vchart(top_cran_downloads) %>%
-    v_wordcloud(
-      aes(word = package, count = count, color = package),
-      maskShape = "https://jeroen.github.io/images/Rlogo.png"
-    )
-}
diff --git a/man/v_wordcloud.Rd b/man/v_wordcloud.Rd