在为数据导入采购脚本时，R Shiny App会崩溃

Question

我在亚马逊网络服务器上使用Shiny（ubuntu 14.04.05）。我在服务器上安装了Dropbox，并编写了一个可视化数据框数据的应用程序。

数据框来自脚本，该脚本读取保管箱文件夹中的所有Excel文件并将其转换为数据框，同时添加其他列。

我已创建了一个actionButton来从我的闪亮应用程序中获取此脚本，但不幸的是，该应用程序出现故障，显示以下错误消息：

Warning: Error in [<-.data.frame: replacement has 2882 rows, data has 2884

我闪亮的服务器看起来像：

server <- function(input, output) {

load("/home/ubuntu/Dropbox/HTM/df.Rda")
load("/home/ubuntu/Dropbox/HTM/df_predict.Rda")

observeEvent(input$button,{
   source("PreparationServerHTM.R", local=TRUE)
})

源代码脚本：

###Load required libraries
library(lubridate)
library(timeDate)
library(data.table)
library(timeSeries)
library(readxl)

##########################################################################
## Load Excel Sheets as Data Frames 
 files <- (Sys.glob("/home/ubuntu/Dropbox/HTM/*.xlsx"))

 listOfFiles <- lapply(files, function(x) read_xlsx(x, sheet= 1, col_names = 
 TRUE))

 df1 <- as.data.frame(listOfFiles[1])

 for(i in 2:length(listOfFiles)){
 df_temp <- as.data.frame(listOfFiles[i])
 df1 <- rbind(df1, df_temp)
 }

 save(df, file="/home/ubuntu/Dropbox/HTM/df1.Rda")

正如您所看到的，现在，采购脚本旨在创建具有不同名称的数据框，但即使这样也不起作用。当然，在将来，我希望源脚本的输出替换闪亮应用程序的数据并更新应用程序。