chore: Use rlang::is_interactive() for all @examplesIf

Author: gadenbuie

DESCRIPTION

@@ -50,4 +50,4 @@ Config/testthat/edition: 3
 Encoding: UTF-8
 LazyData: true
 Roxygen: list(markdown = TRUE)
-RoxygenNote: 7.2.3
+RoxygenNote: 7.3.1

R/engines.R

@@ -22,7 +22,7 @@
 #' note that this will most likely overwrite the `glue` engine provided by the
 #' \pkg{glue} package.
 #'
-#' @examplesIf interactive()
+#' @examplesIf rlang::is_interactive()
 #' use_epoxy_knitr_engines()
 #'
 #' @param include The epoxy knitr engines to include. Defaults to all engines

R/shiny.R

@@ -33,7 +33,7 @@
 #' HTML, use `!!` before the placeholder, e.g. `{{<markup> !!<name>}}`. So
 #' `{{h3 !!demo}}` will create an `<h3>` tag that accepts HTML within it.
 #'
-#' @examplesIf rlang::is_installed("shiny")
+#' @examplesIf rlang::is_installed("shiny") && rlang::is_interactive()
 #' library(shiny)
 #'
 #' ui <- fluidPage(
@@ -498,7 +498,7 @@ epoxyHTML_transformer <- function(
 #' server -- unlike [ui_epoxy_html()], whose updates are specific to the parts
 #' of the data that have changed.
 #'
-#' @examplesIf rlang::is_installed("shiny")
+#' @examplesIf rlang::is_installed("shiny") && rlang::is_interactive()
 #' library(shiny)
 #'
 #' ui <- fluidPage(
@@ -655,7 +655,7 @@ epoxy_mustache_dependencies <- function() {
 #' [ui_epoxy_html()] or [ui_epoxy_mustache()]. When the values are updated by
 #' the app, `render_epoxy()` will update the values shown in the app's UI.
 #'
-#' @examplesIf rlang::is_installed("shiny")
+#' @examplesIf rlang::is_installed("shiny") && rlang::is_interactive()
 #' # This small app shows the current time using `ui_epoxy_html()`
 #' # to provide the HTML template and `render_epoxy()` to
 #' # update the current time every second.