无法在 Shiny 中打开连接

Question

所有， 我正在尝试将数据框写入 Shiny 应用程序中的 RDS 文件。我正在使用下面的代码。

AgName <- gsub("\\s","",paste(mtrl1,'_',stage1,'_',sample1,'.RDS', collapse = ' '))
saveRDS(Input_Data2, AgName )

但它会抛出以下错误消息：

Error: cannot open the connection

相同的代码在 R 命令行上运行良好，但在 Shiny 应用程序中却不行。任何帮助将不胜感激。谢谢！

---

谢谢弗利克！

我也使用了下面的代码，但没有运气。

setwd("/opt/shiny-server/samples/sample-apps/P-AG-Disc4/")
AgName <- gsub("\\s","",paste(mtrl1,'_',stage1,'_',sample1,'.csv', collapse = ' '))
saveRDS(Input_Data2, file=AgName )

---

感谢弗里克！

你是对的。目录对我试图写入的目录没有写权限。再次非常感谢！

Answer 1

我遇到了同样的问题。我提到了this question 并使用下面给出的代码来解决这个问题。我使用了这段代码，它运行良好：

  wrtfun2<-reactive({
  if (!is.null(input$var1))
  setwd("/opt/shiny-server/samples/sample-apps/test")
  sink("outfile.txt")
  cat(input$var1)
  sink()
  }
)

我还更改了我尝试写入的目录的权限，它终于工作了。