闪亮的下载按钮无法正常工作

Question

我已经使用RStudio创建了一个应用来计算所生成的奖励。该应用程序正在执行计算并显示结果，还允许以.csv格式下载结果。

几天以来，结果一直正确显示，但是“下载”按钮的行为很奇怪。以前曾用于下载.csv文件，但现在“ Download.txt”带有错误消息“服务器失败问题”。如果我在rstudio查看器窗格中运行，则错误消息将再次显示为“内部服务器问题”。

代码段：

output$Download <- downloadHandler(
        filename = function() {
            paste("Harness", Sys.Date(), ".csv", sep="")
        },   content = function(file) {
            write.csv(wscv, file)
        }
    )