[R] rgl crashes after one successful draw

[Bryan Hanson]

This is really odd, and probably 100% local to me, but I'm at a loss as to a next step.

After narrowing things down, here's how to reproduce:

library("rgl")
showSomething <- function() {
	open3d()
	points3d(rnorm(10),rnorm(10),rnorm(10))
	axes3d()  
	title3d('main','sub','xlab','ylab','zlab')
	}
showSomething() # works as expected.
# Close the current rgl window
showSomething() # crashes R with the following report:

 *** caught segfault ***
address 0x0, cause 'unknown'

Traceback:
 1: .C(rgl_dev_open, success = FALSE)
 2: rgl.open()
 3: open3d()
 4: showSomething()

This will probably work fine for any of you, it's so simple and fundamental.  If I don't close the open rgl windows, it doesn't crash, and I can execute the function over and over successfully.  And the same thing happens if I just do the commands inside the function individually.  SessionInfo() below.

Perhaps something is corrupt with my X11 window system?  Thanks, Bryan

R version 3.0.1 (2013-05-16)
Platform: x86_64-apple-darwin10.8.0 (64-bit)

locale:
[1] en_US.UTF-8/en_US.UTF-8/en_US.UTF-8/C/en_US.UTF-8/en_US.UTF-8

attached base packages:
[1] stats     graphics  grDevices utils     datasets  methods   base     

other attached packages:
[1] rgl_0.93.940 sos_1.3-5    brew_1.0-6