Only open demo video in interactive sessions

ropensci · Oct 3, 2018 · 43811b4 · 43811b4
1 parent 5ced335
commit 43811b4
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/R/demo.R b/R/demo.R
@@ -26,6 +26,7 @@ av_demo <- function(output = "demo.mp4", width = 960, height = 720, framerate =
     if(as.logical(verbose))
       cat("done!\n", file = stderr())
   }, width = width, height = height, res = res, framerate = framerate, verbose = verbose, ...)
-  utils::browseURL(video)
+  if(interactive())
+    utils::browseURL(video)
   return(video)
 }