note gridGraphics requirement in example (#338)

thomasp85 · Jan 4, 2024 · fca5e30 · fca5e30
1 parent 51a6eff
commit fca5e30
Show file tree

Hide file tree

Showing 2 changed files with 12 additions and 8 deletions.
diff --git a/R/wrap_elements.R b/R/wrap_elements.R
@@ -53,11 +53,13 @@
 #' p1 <- ggplot(mtcars) + geom_point(aes(mpg, disp))
 #' p1 + wrap_elements(panel = p1 + ggtitle('Look at me shrink'))
 #'
-#' # You can even add base graphics if you pass it as a formula
-#' p1 + wrap_elements(full = ~ plot(mtcars$mpg, mtcars$disp))
+#' # You can even add base graphics if you pass it as a formula (requires gridGraphics package)
+#' if (requireNamespace("gridGraphics", quietly = TRUE)) {
+#'   p1 + wrap_elements(full = ~ plot(mtcars$mpg, mtcars$disp))
 #'
-#' # Adding a grob or formula directly is equivalent to placing it in `full`
-#' p1 + ~ plot(mtcars$mpg, mtcars$disp)
+#'   # Adding a grob or formula directly is equivalent to placing it in `full`
+#'   p1 + ~ plot(mtcars$mpg, mtcars$disp)
+#' }
 #'
 wrap_elements <- function(panel = NULL, plot = NULL, full = NULL, clip = TRUE, ignore_tag = FALSE) {
   clip <- if (clip) 'on' else 'off'

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