Trouble Deploying r блестящее приложение с графиками

Question

В настоящее время я пытаюсь развернуть мое блестящее приложение R, которое использует пакет dygraphs для shinyapps.io. Мое приложение отлично работает локально, но при попытке развернуть его говорит, что веб-страница не найдена - "HTTP 500 Internal Server Error". Мой код пользовательского интерфейса:

shinyUI(fluidPage(

  titlePanel("MyApp"),

  fluidRow(
      column(12,
          p("Info Text")
          ,dygraphOutput("plot")
            ) 
          )
))

и код сервера:

shinyServer(function(input, output) {
  library(shiny)
  library(dygraphs)



    output$plot<- renderDygraph({
        data <- read.csv("data.csv", header=TRUE, sep =",",na.strings="-")
        dygraph(data, main = "Plot") %>%
          dyLegend(width = 170 , 
                   labelsSeparateLines = TRUE , 
                   show = "always") %>%
          dyOptions(stackedGraph = FALSE)

Когда я удаляю функцию dygraphOutput из кода пользовательского интерфейса, приложение успешно развертывается. Кто-нибудь испытывал подобные проблемы с дизграфами?

Answer 1

У меня все отлично работает, думаю проблема в твоем csv файл. Вы можете видеть, что мое приложение отлично работает с этим кодом:

сервер

library(shiny)
library(dygraphs)

shinyServer(function(input, output,session) {

  data <- readRDS("data.rds")

  output$plot<- renderDygraph({
    req(data)
    dygraph(data, main = "Plot") %>% dyLegend(width = 170 , labelsSeparateLines = TRUE , show = "always") %>%dyOptions(stackedGraph = FALSE)
  })

})

щ

rm(list = ls())
library(shiny)
library(dygraphs)

ui <- fluidPage(
  titlePanel("MyApp"),
  fluidRow(
    column(12,p("Info Text"),dygraphOutput("plot")) 
  )
)

Структура папок

Окончательный вывод

Приложение размещено на AWS

http://52.39.186.219:3838/Dygraphs/