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

Question

我目前正在尝试将使用 dygraphs 包的 R Shiny 应用程序部署到 shinyapps.io。我的应用程序在本地运行良好，但是当我尝试部署它时说找不到网页 - “HTTP 500 内部服务器错误”。我的用户界面代码是：

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 函数时，应用程序部署成功。有没有人遇到过类似的 dygraphs 问题？

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/