闪亮的应用程序无法读取存储在变量中的文件名

Question

我有一个数据可视化问题，分别处理Shiny应用程序中的csv文件。我收到此错误消息：“错误：'file'必须是字符串或连接。”因此，未显示该图表，因为看似无法读入数据。应注意，文件名存储在变量中。奇怪的是，但在控制台中一切正常。

下面我添加了相应的server.R代码和示例文件夹。

代码中显示的应用程序的粗略和计划操作： 用户可以首先在时间单位设置两个反应输入选项，其次，相应的所需水果。 在第一步中，即所有每日 csv文件都已加载。在第二步中，将加载包含 Apples 一词的所有文件。所以，现在我们只有苹果的每日数据。接下来，我们只需要第一个图表的数据，并在这里挂钩。

我现在已经尝试了几个小时几乎所有事情而没有取得进展。我还尝试测试其他格式，如RDS而不是csv文件。然后出现了一条错误消息“la file”。

我希望有人可以提供帮助。提前谢谢。

# server.R
server <- function(input, output, session) {

# input form one
getAll <- reactive({
  switch(input$all,
    "Daily" = dir(path = "folder/all", pattern = "daily", 
      full.names = TRUE),
    "Weekly" = dir(path = "folder/all", pattern = "weekly", 
      full.names = TRUE),
    "Monthly" = dir(path = "folder/all", pattern = "monthly", 
      full.names = TRUE))
})


# input form two
getSome <- reactive({
  switch(input$some,
    "Apples" = getAll[c(grep(getAll, pattern = "Apples"), value = FALSE)]),
    "Bananas" = getAll[c(grep(getAll, pattern = "Bananas"), value = FALSE)],
    "Cherries" = getAll[c(grep(getAll, pattern = "Cherries"), value = FALSE)],
    "Kiwis" = getAll[c(grep(getAll, pattern = "Kiwis"), value = FALSE)],
    "Strawberries" = getAll[c(grep(getAll, pattern = "Strawberries"), value = FALSE)])
})


# Apples Chart 1

dygraph_Apples_Input <- function() {

  getApples_Only <- getSome()

  getApples_Only_Chart1 <- getApples_Only[c(grep(
    getApples_Only, pattern = "Chart1"), value = FALSE)]

  getApples_Only_Data <- read.csv(
    file = getApples_Only_Chart1[1],
    sep = ";",
    header = TRUE,
    encoding = "UTF-8")

    ...

}

output$dygraph_Apples_Chart1 <- renderDygraph({
  dygraph_Apples_Input()
})

文件夹内容：

• daily_Apples_Chart1.csv
• daily_Apples_Chart2.csv
• daily_Apples_Chart3.csv
• daily_Apples_Chart4.csv
• daily_Apples_Chart5.csv
• daily_Bananas_Chart1.csv
• daily_Bananas_Chart2.csv
• daily_Bananas_Chart3.csv
• daily_Bananas_Chart4.csv
• daily_Bananas_Chart5.csv
• daily_Cherries_Chart1.csv
• daily_Cherries_Chart2.csv
• daily_Cherries_Chart3.csv
• daily_Cherries_Chart4.csv
• daily_Cherries_Chart5.csv
• daily_Kiwis_Chart1.csv
• daily_Kiwis_Chart2.csv
• daily_Kiwis_Chart3.csv
• daily_Kiwis_Chart4.csv
• daily_Kiwis_Chart5.csv
• daily_Strawberries_Chart1.csv
• daily_Strawberries_Chart2.csv
• daily_Strawberries_Chart3.csv
• daily_Strawberries_Chart4.csv
• daily_Strawberries_Chart5.csv
• weekly_Apples_Chart1.csv
• weekly_Apples_Chart2.csv
• weekly_Apples_Chart3.csv
• weekly_Apples_Chart4.csv
• weekly_Apples_Chart5.csv
• weekly_Bananas_Chart1.csv
• weekly_Bananas_Chart2.csv
• weekly_Bananas_Chart3.csv
• weekly_Bananas_Chart4.csv
• weekly_Bananas_Chart5.csv
• weekly_Cherries_Chart1.csv
• weekly_Cherries_Chart2.csv
• weekly_Cherries_Chart3.csv
• weekly_Cherries_Chart4.csv
• weekly_Cherries_Chart5.csv
• weekly_Kiwis_Chart1.csv
• weekly_Kiwis_Chart2.csv
• weekly_Kiwis_Chart3.csv
• weekly_Kiwis_Chart4.csv
• weekly_Kiwis_Chart5.csv
• weekly_Strawberries_Chart1.csv
• weekly_Strawberries_Chart2.csv
• weekly_Strawberries_Chart3.csv
• weekly_Strawberries_Chart4.csv
• weekly_Strawberries_Chart5.csv
• ...