使用 dygraphs 部署 r shiny 应用程序时遇到问题

Question

我目前正在尝试将使用 dygraphs 包的 R shiny 应用程序部署到 shinyapps.io。我的应用程序在本地运行良好，但当我尝试部署它时，它说无法找到该网页 - "HTTP 500 Internal Server Error"。我的 UI 代码是：

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)

当我从 UI 代码中删除 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)
  })

})

ui

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/