Сохранить карту листовки в формате png на сервере блестящего доступа: разрешение запрещено - PullRequest
Новая
       21

Сохранить карту листовки в формате png на сервере блестящего доступа: разрешение запрещено

0 голосов
/ 17 июня 2019

Я делаю блестящее приложение для рендеринга и загрузки листовок.На локальном сервере хорошо работает, но на блестящем сервере я получил ошибку.Сказанная ошибка (перевод с французского):

Предупреждение в 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.Спасибо за вашу помощь.

...