plot theme examples are interactive only

R/ggplot2.R

 #' @inheritDotParams theme_xaringan_base
 #'
 #' @examples
-#' if (requireNamespace("ggplot2", quietly = TRUE)) {
+#' has_ggplot2 <- requireNamespace("ggplot2", quietly = TRUE)
+#' if (interactive() && has_ggplot2) {
 #'   # Set xaringanthemer theme but save to tempfile
 #'   style_duo_accent(outfile = tempfile())
 #'
 #' @inheritDotParams theme_xaringan_base
 #'
 #' @examples
-#' if (requireNamespace("ggplot2", quietly = TRUE)) {
+#' has_ggplot2 <- requireNamespace("ggplot2", quietly = TRUE)
+#' if (interactive() && has_ggplot2) {
 #'   # Set xaringanthemer theme but save to tempfile
 #'   style_duo_accent(outfile = tempfile())
 #'
 #' @param ... Ignored
 #'
 #' @examples
-#' if (requireNamespace("ggplot2", quietly = TRUE)) {
+#' has_ggplot2 <- requireNamespace("ggplot2", quietly = TRUE)
+#' if (interactive() && has_ggplot2) {
 #'   library(ggplot2)
 #'   ggplot(iris) +
 #'     aes(Petal.Length, Petal.Width) +

man/theme_xaringan.Rd

 styles.
 }
 \examples{
-if (requireNamespace("ggplot2", quietly = TRUE)) {
+has_ggplot2 <- requireNamespace("ggplot2", quietly = TRUE)
+if (interactive() && has_ggplot2) {
   # Set xaringanthemer theme but save to tempfile
   style_duo_accent(outfile = tempfile())
 

man/theme_xaringan_base.Rd

 xaringanthemer for a plot theme that matches the slide style.
 }
 \examples{
-if (requireNamespace("ggplot2", quietly = TRUE)) {
+has_ggplot2 <- requireNamespace("ggplot2", quietly = TRUE)
+if (interactive() && has_ggplot2) {
   library(ggplot2)
   ggplot(iris) +
     aes(Petal.Length, Petal.Width) +

man/theme_xaringan_inverse.Rd

 \pkg{xaringan} slide colors and styles as styled by \link{xaringanthemer}.
 }
 \examples{
-if (requireNamespace("ggplot2", quietly = TRUE)) {
+has_ggplot2 <- requireNamespace("ggplot2", quietly = TRUE)
+if (interactive() && has_ggplot2) {
   # Set xaringanthemer theme but save to tempfile
   style_duo_accent(outfile = tempfile())