2017-10-31 21 views
9

में ऐप अपलोड करते समय त्रुटि I Shiny.io पर एक चमकदार ऐप अपलोड करने का प्रयास कर रहा हूं। ऐप को तैनात किया जाता है और जब लिंक की कोशिश की जाती है तो ऐप त्रुटि को फेंक कर क्रैश हो जाता है सर्वर से डिस्कनेक्ट हो जाता है। जब मैंने डैशबोर्ड के लॉग में चेक किया, तो यह कहता है कि सर्वर में त्रुटि: फ़ंक्शन "सर्वर" नहीं मिला।Shiny.io

मुझे इसके लिए समाधान नहीं मिला। संबंधित दस्तावेजों और लेखों से पता चलता है कि उपयोग किए गए पैकेज त्रुटियों के कारणों में से एक हो सकते हैं, लेकिन मैं संकुल की सूची नहीं ढूंढ पा रहा हूं जो संगत होगा या नहीं।

इन पैकेजों/पुस्तकालयों की सूची है कि मेरे ऐप में उपयोग किया जाता,

  1. चमकदार
  2. पृथ्वी
  3. ggplot2
  4. Plot3D
  5. visreg
  6. RGL
  7. चिड़ियाघर हैं
  8. Hmisc
  9. dplyr
  10. shinyBS
  11. shinycssloaders
  12. अग्रिम में

धन्यवाद !!

अद्यतन

नीचे प्रतिलिपि प्रस्तुत करने योग्य 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()}) 

    }) 
} 

धन्यवाद!

+0

क्या आप अपना कोड भी साझा कर सकते हैं? – amrrs

+0

@amrrs प्रतिक्रिया के लिए धन्यवाद। खैर, मेरे पास लगभग 800 लाइन्स कोड हैं जिन्हें पोस्ट करने की अनुशंसा नहीं की जाती है, इसलिए यही वजह है कि मैंने इसे पोस्ट नहीं किया था। क्या यह कोड समाधान देने के लिए आवश्यक है? – Tareva

+1

पुन: उत्पन्न उदाहरण की एक अवधारणा है: https://stackoverflow.com/questions/5963269/how-to-make-a-great-r-reproducible-example। आपकी त्रुटि को ध्यान में रखते हुए, ऐसा लगता है कि आपने अपने कोड में 'सर्वर' ऑब्जेक्ट का उपयोग किया है जो मौजूद नहीं है। – amrrs

उत्तर

2

अंततः मैं कोड डीबग करने और त्रुटि के लिए समाधान खोजने में सक्षम था।

Server.R से बयान if (interactive()) हटा सकते हैं और shinyServer(function(input,output,session)) से session पैरामीटर को हटा दें।

इसलिए बिना किसी त्रुटि के तैनात किए गए।

निम्न सर्वर को बदलें। आर स्क्रिप्ट और इसे ठीक काम करना चाहिए।

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

    }) 

 संबंधित मुद्दे

  • कोई संबंधित समस्या नहीं^_^