Erro ao carregar o aplicativo no Shiny.io

8

Estou tentando fazer upload de um aplicativo brilhante no Shiny.io. O aplicativo é implantado e, quando o link é tentado, o aplicativo é paralisado ao gerar um erro Desconectado do servidor . Quando eu chequei no Logs do painel, ele diz Erro no servidor: não foi possível encontrar a função "servidor" .

Não consegui encontrar a solução para isso. Documentos e artigos sobre o mesmo mostram que os Pacotes utilizados podem ser um dos motivos do erro, mas não consigo encontrar a lista de pacotes que serão compatíveis ou não.

Estas são as listas de pacotes / bibliotecas que são usadas no meu aplicativo,

  1. Brilhante
  2. Terra
  3. ggplot2
  4. Plot3D
  5. visreg
  6. rgl
  7. zoológico
  8. Hmisc
  9. dplyr
  10. shinyBS
  11. shinycssloaders

Obrigado antecipadamente !!

UPDATE

Abaixo estão os scripts ui.R e server.R reprodutíveis. Após a depuração, descobri que essa parte do código é um erro durante a implantação.

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

    })
 }

Obrigado!

    
por Tareva 31.10.2017 в 07:28
fonte

1 resposta

2

Finalmente consegui depurar o código e encontrar uma solução para o erro.

Em Server.R , exclua o parâmetro if (interactive()) e delete session do shinyServer(function(input,output,session)) .

Portanto, implantado sem qualquer erro.

Substitua o seguinte script server.R e ele deve funcionar bem.

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

  })
    
por Tareva 07.11.2017 / 05:41
fonte