Merge pull request #290 from dmurdoch/cransubmission

Respond to CRAN rejection

DESCRIPTION

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

NEWS.md

@@ -1,4 +1,4 @@
-# rgl 0.111.5
+# rgl 0.111.6
 
 ## Minor changes
 
@@ -17,6 +17,8 @@ added.
 * Similarly, `rgl.par3d.names` and `rgl.par3d.readonly`
 contain lists of properties that may be set or queried
 in `par3d()`.
+* Made some examples conditional on interactive use
+to save time on CRAN.
 
 ## Bug fixes
 

cran-comments.md

@@ -1,3 +1,11 @@
+0.111.6
+
+Two examples that triggered the time NOTES have been made 
+conditional on being run interactively.
+
+The previous submission also had some connection errors to
+URLs; I think those are false positives.
+
 0.111.5
 
 This is a fairly small update, triggered by a request from CRAN.

man/play3d.Rd

@@ -102,7 +102,7 @@ of producing the output movie.  It invisibly returns
 open3d()
 plot3d( cube3d(col = "green") )
 M <- par3d("userMatrix")
-if (!rgl.useNULL())
+if (!rgl.useNULL() && interactive())
   play3d( par3dinterp(times = (0:2)*0.5, userMatrix = list(M,
                                      rotate3d(M, pi/2, 1, 0, 0),
                                      rotate3d(M, pi/2, 0, 1, 0) ) ), 

man/spin3d.Rd

@@ -38,7 +38,7 @@ by this function.
 # Spin one object
 open3d()
 plot3d(oh3d(col = "lightblue", alpha = 0.5))
-if (!rgl.useNULL())
+if (!rgl.useNULL()  && interactive())
   play3d(spin3d(axis = c(1, 0, 0), rpm = 30), duration = 2)
 
 # Show spinning sprites, and rotate the whole view
@@ -59,7 +59,7 @@ f <- function(time) {
                      base = spin1(time)$userMatrix)$userMatrix)
     spin1(time)
 }
-if (!rgl.useNULL())
+if (!rgl.useNULL() && interactive())
   play3d(f, duration = 2)
 }
 \keyword{ dplot }