rglwidget：无法替换以前的 3D 绘图

Question

rglwidget

包附带的示例相当复杂；我在下面创建了一个简单的

shiny/rglwidget

示例。该图显示正常，但每次我切换复选框时，浏览器窗口中都会附加一个新图像。

如何替换/覆盖第一个图？

options(rgl.useNULL = TRUE)
library(shiny)
library(rglwidget)
library(rgl)

app = shinyApp(
  ui = bootstrapPage(
      checkboxInput("rescale", "Rescale"),
      rglwidgetOutput("rglPlot")
  ),
  server = function(input, output) {
    output$rglPlot <- renderRglwidget({
      try(rgl.close()) # added following @user2554330
      if (input$rescale) aspect3d(1,1,10) else aspect3d(1,1,1)
      # High level function following @user2554330: same effect
      # plot3d(rnorm(100), rnorm(100), rnorm(100,sd = 0.1), 
      #     col = rainbow(1000))
      spheres3d(rnorm(100), rnorm(100), rnorm(100,sd = 0.1), col = "red",
                radius = 0.1)
      axes3d()
      rglwidget()

    })
  })
runApp(app)

会议信息：

R version 3.2.2 (2015-08-14)
Platform: i386-w64-mingw32/i386 (32-bit)
Running under: Windows 7 x64 (build 7601) Service Pack 1

locale:
[1] LC_COLLATE=German_Germany.1252  LC_CTYPE=German_Germany.1252   
[3] LC_MONETARY=German_Germany.1252 LC_NUMERIC=C                   
[5] LC_TIME=German_Germany.1252    

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

other attached packages:
[1] rgl_0.95.1429      rglwidget_0.1.1431 shiny_0.12.2      

loaded via a namespace (and not attached):
 [1] htmlwidgets_0.5.1 R6_2.1.1          rsconnect_0.4.1.9 htmltools_0.2.7  
 [5] tools_3.2.2       yaml_2.1.13       Rcpp_0.12.2       knitr_1.11       
 [9] jsonlite_0.9.19   digest_0.6.8      xtable_1.8-0      Cairo_1.5-9      
[13] httpuv_1.3.3      mime_0.4     

Answer 1

它的作用就像 rgl - 当您使用低级命令（

spheres3d

，

axes3d

）时，它们会添加到现有绘图中。如果你想替换它，最简单的方法就是先调用

close3d()

。

next3d()

是另一种可能性，尽管略有不同。

或者，调用高级函数，例如

plot3d

或

persp3d

。他们在画画之前先清理窗户。

编辑补充：我上面描述的就是现在发生的事情。最初的问题是使用

rgl

的有缺陷版本，该版本已于 9 年前修复。