write.csv许可证服务器-R

我似乎无法在闪亮的服务器上使用write.csv。我得到这个错误：

cannot open file 'data/Available.csv': Permission denied

我读过这篇（）文章，因此尝试了以下方法：

sudo chown shiny:shiny /path_to_app/data

但还是没有运气。我正在使用Dean Attali的帖子（）中的以下函数：

。。。来写我的.csv文件。也许我需要以管理员身份登录服务器才能分配权限（当前以用户身份登录）？或者我的

outputDir

可能必须是完整的扩展名

编辑

如果我将

outputDir

更改为

data

以外的任何内容，似乎都可以正常工作。我猜

data

是shiny中的一个特殊子目录

outputDir <- "data"

saveData <- function(data) {
  # Write the file to the local system
  write.csv(
    x = data,
    file = file.path(outputDir, "Available.csv") 

  )
}

observeEvent(input$swafer, {

    saveData(values1$available)

  })