我在ubuntu14 + shiny-server的环境测试下列code是没问题的可以出rgl图
但很抱歉我没有测过shinyapps.io
library(shiny)
library(rgl)
ui <- fluidPage(
rglwidgetOutput("distPlot")
)
server <- function(input, output) {
output$distPlot <- renderRglwidget({
plot3d(x=1:5, y=6:10, z=11:15)
rglwidget()
})
}
shinyApp(ui = ui, server = server)
※ 引述《a94jim (大头曼)》之铭言：
: - 问题: 当你想要问问题时，请使用这个类别。
: [问题类型]:
: 程式咨询(我想用R 做某件事情，但是我不知道要怎么用R 写出来)
: [软件熟悉度]:
: 使用者(已经有用R 做过不少作品)
: [问题叙述]:
: 因为工作需求，需要用shiny制作3d网页
: 在这边我是使用rgl package，在本端电脑尝试时都会有视窗跳出，一切正常
: 但经过rsconnect package publish到shinyapps.io后，便没有视窗跳出，
: 更没有呈现3d图了
: 不知道各位大神有没有办法可以帮助我
: [程式范例]:
: library(shiny)
: library(rgl)
: ui <- fluidPage(
: plotOutput("distPlot")
: )
: server <- function(input, output) {
: output$distPlot <- renderPlot({
: plot3d(1:5, 6:10, 11:15)
: })
: }
: shinyApp(ui = ui, server = server)
: [环境叙述]:
: 这是我的sessionInfo:
: https://imgur.com/WciqAUk
: [关键字]:
: rgl