Question

全部，我想在Shiny应用程序中将数据帧写入RDS文件。我正在使用下面的代码。

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

但它抛出以下错误消息：

Error: cannot open the connection

相同的代码在R命令行上正常运行，但在Shiny app中没有。任何帮助将受到高度赞赏。谢谢！

谢谢Flick！

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

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

谢谢你！

你是对的。目录在我试图写的地方没有写入权限。再次感谢soo！

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()
  }
)

我还更改了我尝试编写的目录的权限，最终工作正常。

无法在Shiny中打开连接

1 个答案: