具有rgl.snapshot的renderRglwidget产生黑色png图像

Question

我正在尝试使用renderRglwidget功能保存以闪亮方式显示的小部件的快照。这个想法是将用户定位保存为快照。但是，rgl.snapshot函数只会产生一个小的黑匣子。

这东西甚至可以与闪亮和rgl一起使用吗？

output$webgl3Dalign <- renderRglwidget ({
    try(rgl.close())
    points3d(tt1, size=3, col="dimgray", box=FALSE)
    points3d(tt2, size=3, col="dodgerblue", box=FALSE)
    axes3d(c('x++', 'y++', 'z++'))
    rgl.snapshot("file.png")
    rglwidget()
})