我发布闪亮的应用程序时无法加载数据

Posted 2023-03-24

【中文标题】我发布闪亮的应用程序时无法加载数据

【英文标题】：Cant load data when im publishing my shiny app

【发布时间】：2016-10-03 03:38:16

【问题描述】：

我创建了一个简单的闪亮应用。相关代码如下所示：

服务器.R

    library(shiny)
    library(ggplot2)

    shinyServer(function(input, output)

      #Hier output je je plot, let op $myhist is iets wat je teruggeeft
      output$myhist <- renderPlot(


        df_graph <- df_test[df_test$playlist_name == input$var,]

        #Dit is gewoon een normale graph aanmaken obv graph_data
        g <- ggplot(df_graph, aes(x=key, y=value)) + geom_boxplot()
        print(g)
      )
    )

UI.R

library(shiny)
shinyUI(fluidPage(

  #maken sample data

  #setwd("~/shiny_apps/echonest"),
  df_test <- read.csv("df_echonest.csv", stringsAsFactors = F),
  listIDs <- df_test$playlist_name,
  #outlinen title
  titlePanel(title = "This is the title"),
  sidebarLayout(
    sidebarPanel(

      #Here you enter the var that you would like to use to filter the data shown in the graph
      selectInput("var", "Select the eventID", choices = listIDs),
      br(),
      sliderInput("amount of fluctuation", "Integer:",
                  min=0, max=30, value=0)
    ),

    mainPanel(("Personal information"),
              plotOutput("myhist"))
  )
)) 

运行应用程序所需的所有相关数据都存储在一个 .csv 文件中，该文件也放置在同一文件夹中，并使用 UI.R 文件中的以下行加载：

df_test <- read.csv("df_echonest.csv", stringsAsFactors = F),

当我在本地运行它时，一切都很顺利。但是，当我尝试使用闪亮部署它并尝试访问相关页面时（https://marcvanderpeet12.shinyapps.io/echonest/)I 得到消息：

Personal information Error: object 'df_test' not found

当列表实际加载时（该信息也来自 df_test）。有什么想法会出错吗？

【参考方案1】：

尝试在 server.R 中导入 df_echonest.csv，UI 找到它但没有服务器端