在闪亮的服务器上将传单地图另存为png：权限被拒绝

Question

我正在制作一个闪亮的应用程序来渲染和下载传单地图。它在本地运行良好，但是在闪亮的服务器上，出现错误。 错误说（从法语翻译）：

在dir.create（outputDir）中的警告：   无法创建目录（outputDir）：“ Carte_proba_0_benzen_tranche1_tmpcfa3ed_files”，权限被拒绝 dir.create（target_dir）中的警告：   无法创建目录 'Carte_proba_0_benzen_tranche1_tmpcfa3ed_files / htmlwidgets-1.3'，没有目录或文件

下载的图片和csv效果很好。我试图更改地图的保存路径，但遇到了同样的错误。

这是我的代码：

output$mapProba_dl <- downloadHandler(
    filename = "carte_proba.zip",
    content = function(file){
      withProgress(message = "Téléchargement des cartes", detail = "Initialisation", value = 0,{
        liste_tranche <- recVal$liste_tranche
        nom_map <- c()
        for (i in 1:length(liste_tranche)){
          incProgress(1/(2*length(liste_tranche)+1), detail = glue("Réalisation de la carte de la tranche : {liste_tranche[i]}"))
          cd_param <- as.numeric(recVal$liste_total_param$codeparam[match(isolate(input$mapProba_param), recVal$liste_total_param$nomparam)])
          map <- carte_proba(param = cd_param, tranche = liste_tranche[i], val_seuil = isolate(input$mapProba_seuil), check_seuil = isolate(input$mapProba_choix_seuil), seuils = isolate(input$mapProba_seuil_liste), type = "SQL", con = recVal$con_db)
          if (isolate(input$mapConc_choix_seuil) == FALSE){
            nom_map[i] <- glue("Carte_proba_{isolate(input$mapProba_seuil)}_{input$mapProba_param}_{liste_tranche[i]}.png")
          } else {
            nom_map[i] <- glue("Carte_proba_seuil_{isolate(input$mapProba_seuil)}_{input$mapProba_param}_{liste_tranche[i]}.png")
          }
          incProgress(1/(2*length(liste_tranche)+1), detail = glue("Enregistrement de la carte de la tranche : {liste_tranche[i]}"))
          mapshot(map, file = nom_map[i])
        }
        incProgress(1/(2*length(liste_tranche)+1), detail = "Ajout des cartes dans un .zip")
        zip(zipfile=file, files= nom_map)
      })
    },
    contentType = "application/zip"
  )

我认为问题出在mapshot。 感谢您的帮助。