में ऐप अपलोड करते समय त्रुटि I Shiny.io पर एक चमकदार ऐप अपलोड करने का प्रयास कर रहा हूं। ऐप को तैनात किया जाता है और जब लिंक की कोशिश की जाती है तो ऐप त्रुटि को फेंक कर क्रैश हो जाता है सर्वर से डिस्कनेक्ट हो जाता है। जब मैंने डैशबोर्ड के लॉग में चेक किया, तो यह कहता है कि सर्वर में त्रुटि: फ़ंक्शन "सर्वर" नहीं मिला।Shiny.io
मुझे इसके लिए समाधान नहीं मिला। संबंधित दस्तावेजों और लेखों से पता चलता है कि उपयोग किए गए पैकेज त्रुटियों के कारणों में से एक हो सकते हैं, लेकिन मैं संकुल की सूची नहीं ढूंढ पा रहा हूं जो संगत होगा या नहीं।
इन पैकेजों/पुस्तकालयों की सूची है कि मेरे ऐप में उपयोग किया जाता,
- चमकदार
- पृथ्वी
- ggplot2
- Plot3D
- visreg
- RGL
- चिड़ियाघर हैं
- Hmisc
- dplyr
- shinyBS
- shinycssloaders अग्रिम में
धन्यवाद !!
अद्यतन
नीचे प्रतिलिपि प्रस्तुत करने योग्य 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()})
})
}
धन्यवाद!
क्या आप अपना कोड भी साझा कर सकते हैं? – amrrs
@amrrs प्रतिक्रिया के लिए धन्यवाद। खैर, मेरे पास लगभग 800 लाइन्स कोड हैं जिन्हें पोस्ट करने की अनुशंसा नहीं की जाती है, इसलिए यही वजह है कि मैंने इसे पोस्ट नहीं किया था। क्या यह कोड समाधान देने के लिए आवश्यक है? – Tareva
पुन: उत्पन्न उदाहरण की एक अवधारणा है: https://stackoverflow.com/questions/5963269/how-to-make-a-great-r-reproducible-example। आपकी त्रुटि को ध्यान में रखते हुए, ऐसा लगता है कि आपने अपने कोड में 'सर्वर' ऑब्जेक्ट का उपयोग किया है जो मौजूद नहीं है। – amrrs