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"))

src/BBoxDeco.cpp

@@ -463,25 +463,21 @@ struct BBoxDeco::BBoxDecoImpl {
       }
     }
 
-    AxisInfo*  axis;
     Edge*  axisedge;
     int    nedges;
 
     switch(coord)
     {
       case 0:
-        axis     = &(bboxdeco.xaxis);       
         axisedge = xaxisedge;
         nedges   = 4;
         break;
       case 1:
-        axis     = &(bboxdeco.yaxis);
         axisedge = yaxisedge;
         nedges   = 8;
         break;
       case 2:
       default:
-        axis     = &(bboxdeco.zaxis);
         axisedge = zaxisedge;
         nedges   = 4;
         break;
@@ -520,13 +516,14 @@ struct BBoxDeco::BBoxDecoImpl {
 
   static Edge* fixedEdge(Material* material)
   {
-    Edge* axisedge;
-    int i,j, lim, coord = material->marginCoord;
+    Edge* axisedge = xaxisedge;
+    int i,j, lim = 4, coord = material->marginCoord;
     bool match;
     switch(coord) {
       case 0: 
-        axisedge = xaxisedge;
-        lim = 4;
+        // Initialized to this case to suppress "may be unused" message
+        // axisedge = xaxisedge;
+        // lim = 4;
         break;
       case 1: 
         axisedge = yaxisedge; 

src/api.cpp

@@ -321,8 +321,9 @@ void rgl::rgl_attrib_count(int* id, int* attrib, int* count)
     RGLView* rglview = device->getRGLView();
     Scene* scene = rglview->getScene();
     Subscene* subscene = scene->whichSubscene(*id);
-    AABox bbox = subscene->getBoundingBox();
     SceneNode* scenenode = scene->get_scenenode(*id);
+    // getBoundingBox is called for the side effect of possibly calculating data_bbox.
+    subscene->getBoundingBox();
     if ( scenenode )
       *count = scenenode->getAttributeCount(subscene, *attrib);
     else