Shiny 应用程序中未显示 RGL 小部件

Question

我已经挣扎了几个小时，试图构建一个包含 RGL 小部件的闪亮应用程序。 我想要一个滑块输入来控制情节的年龄控制演变，并且不显示小部件。

请在下文中找到我目前正在处理的代码。

library(shiny)
library(rgl)


ui <- (fluidPage(
sliderInput("sld", label = "Slider", min = 0., max = 4*pi, value = 0., step = .1),
playwidgetOutput("control"),
 rglwidgetOutput("wdg")
))

server <- function(input, output, session) {
options(rgl.useNULL = TRUE)
save <- options(rgl.inShiny = TRUE)
on.exit(options(save))

# create data for widget
theta <- seq(0, 4*pi, len=100)
xyz <- cbind(sin(theta), cos(theta), sin(theta/2))
open3d()
lineid <- plot3d(xyz, type="l", alpha = 0, lwd = 5, col = "blue")["data"]
scene <- scene3d()
rgl.close()

output$wdg <- renderRglwidget({
rglwidget(scene, controllers = c("control"))
})
control <- ageControl(births = theta,
                    ages = c(-4*pi, -4*pi, 1-4*pi, 0, 0, 1),
                    objids = lineid,
                    alpha = c(0, 1, 0, 0, 1, 0))

output$control <- renderPlaywidget({
playwidget("wgd",control,
            respondTo = "sld")
})}
if (interactive()) shinyApp(ui = ui, server = server)

提前感谢您的帮助。

Answer 1

由于您使用闪亮的sliderInput 来控制事物，因此不会显示playwidget。这是正常的，并且记录在案。

但是，仍然存在一个问题：当我运行您的应用程序时，滑块似乎没有控制显示。这看起来像是rgl 中的错误，而不是您的代码中的错误。不知道该建议什么...

编辑添加：不，不是rgl 错误。在一个地方，您将 rgl 小部件命名为 wgd，在另一个地方命名为 wdg。修正那个错字，你的代码就可以工作了。