我在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