Can't assume we have cairo capabilities in examples

rstudio · Aug 17, 2021 · 30fbc11 · 30fbc11
1 parent 797d2a7
commit 30fbc11
Show file tree

Hide file tree

Showing 2 changed files with 14 additions and 12 deletions.
diff --git a/R/images.R b/R/images.R
@@ -138,12 +138,13 @@ capturePlot <- function(expr, filename = tempfile(fileext = ".png"),
 #'
 #' if (interactive()) img
 #'
-#'
-#' svg <- plotTag(plot(pressure), "A plot of the 'pressure' dataset",
-#'   device = grDevices::svg, width = 375, height = 275, pixelratio = 1/72,
-#'   mimeType = "image/svg+xml")
-#'
-#' if (interactive()) svg
+#' if (interactive() && capabilities("cairo")) {
+#'   plotTag(
+#'     plot(pressure), "A plot of the 'pressure' dataset",
+#'     device = grDevices::svg, width = 375, height = 275, pixelratio = 1/72,
+#'     mimeType = "image/svg+xml"
+#'   )
+#' }
 #'
 #' @export
 plotTag <- function(expr, alt, device = defaultPngDevice(), width = 400, height = 400,

diff --git a/man/plotTag.Rd b/man/plotTag.Rd