Не удалось скачать папку с файлом Excel, заархивировав ее в Rshiny - PullRequest
Новая
       11

Не удалось скачать папку с файлом Excel, заархивировав ее в Rshiny

0 голосов
/ 14 сентября 2018

В приложении Rshiny я использую zip из пакета utils и пытаюсь загрузить zip с помощью downloadHandler.

Итак, я могу скачать папку, содержащую csv, изображения в ней, заархивировав ее, но когда я пытаюсь загрузить папку, содержащую файл рабочей книги (excel), заархивировав ее, выдается следующая ошибка: 

Warning: Error in path.expand: invalid 'path' argument
[No stack trace available]

Вот мой фрагмент кода: 

temporary_directory <- tempdir()

    #ZIP purpose directory creation
output_directory <-
  paste("network_data_bundle", gsub("[ :]", "_", Sys.time()), sep = "_")

network_data_bundle_path <-
  paste(temporary_directory, output_directory, sep = "/")

## Create a new workbook
wb <- createWorkbook("temp_wrokbook")

#************* START: ADDING INSTRUCTION SHEET ************#
# adding instructions worksheet to the workbook
addWorksheet(wb, CONSTANT_MM_WORKBOOK_SHEET_INSTRUCTION, gridLines = TRUE) 

# loading instructions sheet workbook
instructions_wb <- loadWorkbook(CONSTANT_MM_WORKBOOK_INSTRUCTION_FILE_NAME)

wb <- copyWorkbook(instructions_wb)

temp_mm_data_file <- paste(network_data_bundle_path, "test1.xlsx", sep = "/")

saveWorkbook(wb, temp_mm_data_file, overwrite = TRUE)



# set working directory as tem directory for zip purpose
setwd(temporary_directory)

# zip all the files and sub-directories
zip(zipfile = filename,
    files = paste(output_directory, "/", sep = ""))

Я уже потратил больше пары часов, но не смог найти ничего полезного.

...