Merge pull request #186 from dmurdoch/reprex

Detect `reprex::reprex()` and arrange for a screenshot

DESCRIPTION

@@ -1,5 +1,5 @@
 Package: rgl
-Version: 0.108.21
+Version: 0.108.22
 Title: 3D Visualization Using OpenGL
 Authors@R: c(person("Duncan", "Murdoch", role = c("aut", "cre"),
                      email = "[email protected]"),

NEWS.md

@@ -20,9 +20,11 @@
 * `sprites3d()` now has the option of
 `rotating = TRUE`, to allow 3D sprites to rotate with
 the scene.
-
 * Added `getShaders()` function to get shaders used in WebGL.
-
+* Now detects if `rgl` is running within `reprex::reprex()`
+and if so arranges that a screenshot will be included in the
+output.
+
 ## Minor changes
 
 * Added `as.mesh3d()` methods for `"rglsubscene"` and `"rglscene"`.

R/zzz.R

@@ -124,6 +124,13 @@
 
   if (!rgl.useNULL()) 
     setGraphicsDelay(unixos = unixos)
+
+  # Are we running in reprex::reprex?  If so, do
+  # the knitr setup so our output appears there.
+
+  if (in_reprex()) {
+    setupKnitr(autoprint = TRUE)
+  }
 }
 
 # Do we need a delay opening graphics?    
@@ -191,3 +198,6 @@ rgl.init <- function(initValue = 0, onlyNULL = FALSE, debug = getOption("rgl.deb
   .C( rgl_quit, success=FALSE )
 
 }
+
+in_reprex <- function() 
+  !is.null(getOption("reprex.current_venue"))