通过闪亮+ rgl捕获坐标

Question

是否可以使用identify3d（）或类似物来捕获通过renderRglwidget渲染的rgl场景中的地标坐标？我在闪亮的渲染中使用以下代码：

#server
observeEvent(input$mspec3D, {
    tt1 <- out2[[6]][out2[[6]][,3] == input$mspec3D, ][1]
    tt1 <- as.numeric(tt1)

    tt2 <- out2[[6]][out2[[6]][,3] == input$mspec3D, ][2]
    tt2 <- as.numeric(tt2)

    tt1 <- out2[[1]][[tt1]]
    tt2 <- out2[[1]][[tt2]]

    output$webgl3D <- renderRglwidget ({
        try(rgl.close())
        points3d(tt1, size=3, col="dimgray", box=FALSE)
        points3d(tt2, size=3, col="dodgerblue", box=FALSE)
        axes3d()
        rglwidget()
    })
})

#ui
rglwidgetOutput('webgl3D', width = "1200px", height = "400px")

Answer 1

是的，虽然它目前只在开发版中。你可以从R-forge或Github那里得到它，见How do I install the latest version of rgl?。您需要使用crosstalk。

请参阅rgl的开发版本中的WebGL插图中的讨论。