Add if (interactive()) to examples that rely on a web browser

Author: phgrosjean

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: equatiomatic
 Title: Transform Models into 'LaTeX' Equations
-Version: 0.4.3
+Version: 0.4.4
 Authors@R:
     c(person(given = "Daniel",
              family = "Anderson",

NEWS.md

@@ -1,3 +1,8 @@
+# equatiomatic 0.4.4
+
+* Adding `if (interactive())` where a preview of the equation is generated in a
+    Web browser to avoid a note in CRAN check.
+
 # equatiomatic 0.4.3
 
 * Correction of an URL that has no valid certificate in lme4-lmer vignette.

R/equation.R

@@ -45,14 +45,16 @@
 #' # Print raw text:
 #' eq1
 #' # Get a preview of the equation
-#' eq__(eq1)
+#' if (interactive())
+#'   eq__(eq1)
 #' # The same function can be used inside a `$$...$$ {#eq-label}` construct in
 #' # R Markdown or Quarto to calcule a display equation that is also recognized
 #' # by the cross referencing system of Quarto.
 #' # Get a string suitable for inclusion inline in R Markdown with `r eq__(eq1)`
 #' # (inside Markdown text and without the dollar signs around it)
 #' # For inline equations in a Markdown text, you are better to use `r eq_(eq1)`
-#' eq_(eq1)
+#' if (interactive())
+#'   eq_(eq1)
 equation <- function(object, ...) {
   UseMethod("equation")
 }
@@ -187,7 +189,7 @@ print.inline_equation <- function(x, ...) {
         # extract the exponent of I()
         vec <- sub("^I\\(.*(\\^.*)\\).*", "\\1", names(labels)[i])
 
-        if(isTRUE(units)) {
+        if (isTRUE(units)) {
           # vec[i] <- sub(" \\n", paste0(sous_chaine, "\\\n"), vec[i])
           labels[i] <- gsub("(.*)(\\n \\[)(.*)(\\])",
             paste0("\\1", vec, "\\2", "\\3", vec,"\\4"), labels[i])

R/print.R

@@ -80,12 +80,14 @@ format.equation <- function(x, ..., latex = knitr::is_latex_output()) {
 #' @export
 #'
 #' @examples
-#' mod1 <- lm(mpg ~ cyl + disp, mtcars)
-#' eq1 <- extract_eq(mod1)
-#' eq1 # Not that nice
-#' preview_eq(eq1)
-#' # or easier...
-#' preview_eq(mod1)
+#' if (interactive()) {
+#'   mod1 <- lm(mpg ~ cyl + disp, mtcars)
+#'   eq1 <- extract_eq(mod1)
+#'   eq1 # Not that nice
+#'   preview_eq(eq1)
+#'   # or easier...
+#'   preview_eq(mod1)
+#' }
 preview_eq <- function(x, ...) {
   if (!rmarkdown::pandoc_available())
     stop("Pandoc is not available. Please install it to use this function.",