通过shiny + rgl捕获坐标

是否可以使用 recognize3d() 或类似的方法来捕获通过渲染 Rglwidget 渲染的 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")

是的，尽管目前仅处于开发版本中。您可以从 R-forge 或 Github 获取它，请参阅如何安装最新版本的 rgl？ https://stackoverflow.com/questions/37142762/how-do-i-install-the-latest-version-of-rgl。你需要使用相声 https://rstudio.github.io/crosstalk/.

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