Reverse if(interactive) replacement for shiny app

stm · Feb 20, 2024 · cde3c73 · cde3c73
1 parent 6fbe1f7
commit cde3c73
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/R/imagefluencyApp.R b/R/imagefluencyApp.R
@@ -9,9 +9,11 @@ NULL
 #' @export
 #'
 #'
-#' @examplesIf interactive()
+#' @examples
 #' ## Only run this example in interactive R sessions
-#' run_imagefluency()
+#' if (interactive()) {
+#'   run_imagefluency()
+#' }
 run_imagefluency <- function() {
   appDir <- system.file("imagefluencyApp", package = "imagefluency")
   if (appDir == "") {