Lỗi khi tải lên ứng dụng trong Shiny.io

Question

Tôi đang cố tải lên ứng dụng sáng bóng trên Shiny.io. Ứng dụng được triển khai và khi liên kết được thử, ứng dụng bị lỗi bằng cách ném lỗi Đã ngắt kết nối khỏi Máy chủ. Khi tôi kiểm tra trong Nhật ký của trang tổng quan, nó cho biết Lỗi trong máy chủ: không thể tìm thấy chức năng "máy chủ".

Tôi không thể tìm thấy giải pháp cho việc này. Các tài liệu và bài viết liên quan đến cùng một chương trình cho thấy các gói được sử dụng có thể là một trong những lý do cho lỗi nhưng tôi không thể tìm thấy danh sách các gói sẽ tương thích hay không.

Đây là danh sách các gói/thư viện được sử dụng trong ứng dụng của tôi,

1. Shiny
2. Trái đất
3. ggplot2
4. Plot3D
5. visreg
6. RGL
7. sở thú
8. Hmisc
9. dplyr
10. shinyBS
11. shinycssloaders

Cảm ơn trước !!

CẬP NHẬT

Dưới đây là những tái sản xuất ui.R và server.R kịch bản. Khi gỡ lỗi, tôi thấy rằng phần mã này là lỗi trong khi triển khai.

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()}) 

    }) 
} 

Cảm ơn!

Answer 1

Cuối cùng tôi đã có thể gỡ lỗi mã và tìm giải pháp cho lỗi.

Từ Server.R xóa báo cáo kết quả if (interactive()) và xóa session tham số từ shinyServer(function(input,output,session)).

Do đó được triển khai mà không có bất kỳ lỗi nào.

Thay thế máy chủ sau.R script và nó sẽ hoạt động tốt.

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()}) 

    })