Shiny.ioでアプリをアップロード中にエラーが発生しました

Question

Shiny.ioで光沢のあるアプリをアップロードしようとしています。アプリがデプロイされ、リンクが試されると、エラーがサーバから切断されてアプリがクラッシュします。 ダッシュボードのログをチェックしたところ、サーバーにエラーがありました：機能「サーバー」が見つかりませんでした。

解決策を見つけることができませんでした。同じ文書や記事では、使用されたパッケージがエラーの原因の1つになる可能性がありますが、互換性のあるパッケージのリストを見つけることができません。

これらは

1. 、私のアプリで使用されているパッケージ/ライブラリのリストですシャイニー
2. 地球
3. ggplot2
4. PLOT3D
5. visreg
6. RGL
7. 動物園
8. Hmisc
9. dplyr
10. shinyBS
11. shinycssloaders

事前に感謝します！以下は

UPDATE

は再現ui.Rとserver.Rスクリプトです。 デバッグ時に、コードのこの部分が展開中にエラーであることがわかりました。

ui.R

library(shiny) 
library(shinyBS) 
library(shinycssloaders) 
options(shiny.trace=TRUE) 

shinyUI(pageWithSidebar(



    fluidRow(
    column(width = 4,height = 4,img(src='image.png', align = "left", height = 
    50, width = 200)), 
    column(8,titlePanel("Analysis")) 
), 


    sidebarPanel(

    br(), 

    fileInput("file1", label = (" Data "),multiple = F), 

    fluidRow(
    column(12,align ="center", actionButton("button", "Analyze",style = 
    "background-color : skyblue", icon = icon("stats", lib = 
    "glyphicon"),width = 250))) 


), 
mainPanel(

    bsAlert("alert"), 

    br(), 

    fluidRow(  

    tabsetPanel(
     tabPanel("Table",icon = 
     icon("table"),withSpinner(dataTableOutput('table'), type = 
     getOption("spinner.type", default = 8))) 

    ) 
    ) 
    ) 
)) 

server.R

library(shiny) 
    library(shiny) 
    library(earth) 
    library(ggplot2) 
    library(plot3D) 
    library(visreg) 
    library(rgl) 
    library(zoo) 
    library(Hmisc) 
    library(dplyr) 
    library(gridExtra) 

    options(shiny.maxRequestSize=30*1024^2) 
    options(shiny.trace=TRUE) 

    if (interactive()){ 
    shinyServer(function(input, output,session) { 
    dataframe <- reactive({ 

    ### Create a data frame reading data file to be used by other 
    functions.. 
     inFile <- input$file1  
     data1 <- read.csv(inFile$datapath, header = TRUE) 


    }) 

    table1<- eventReactive(input$button, dataframe()) 
     output$table <- renderDataTable({table1()}) 

    }) 
} 

ありがとう！

Answer 1

最後に、コードをデバッグしてエラーの解決策を見つけることができました。

Server.Rから声明if (interactive())を削除し、shinyServer(function(input,output,session))からsessionパラメータを削除します。

したがって、エラーは発生しません。

次のserver.Rスクリプトを置き換えてください。正常に動作するはずです。

library(shiny) 
library(shiny) 
library(earth) 
library(ggplot2) 
library(plot3D) 
library(visreg) 
library(rgl) 
    library(zoo) 
library(Hmisc) 
library(dplyr) 
library(gridExtra) 

options(shiny.maxRequestSize=30*1024^2) 
options(shiny.trace=TRUE) 

shinyServer(function(input, output) { 
dataframe <- reactive({ 

    ### Create a data frame reading data file to be used by other functions.. 
    inFile <- input$file1 


    data1 <- read.csv(inFile$datapath, header = TRUE) 


    }) 

    table1<- eventReactive(input$button, dataframe()) 
    output$table <- renderDataTable({table1()}) 

    })