From 1b8c0d83dbed30486239febf65ce304f80d2a3ff Mon Sep 17 00:00:00 2001 From: Craig Williams Date: Thu, 11 Apr 2019 10:32:52 +0100 Subject: [PATCH] Write ZIP file to export directory (tmp) --- app.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/app.R b/app.R index b2e303c..1698101 100644 --- a/app.R +++ b/app.R @@ -604,7 +604,7 @@ server <- function(input, output, session) { print('saving xlsx file export tmp/dataset.xlsx') - zipFile <- zipr(paste0('MESO-', format(Sys.time(), "%m%d_%H%M"), '.zip'), c('tmp/layer1.png', 'tmp/layer2.png', 'tmp/layer3.png', 'tmp/dataset.xlsx')) + zipFile <- zipr(paste0('tmp/MESO-', format(Sys.time(), "%m%d_%H%M"), '.zip'), c('tmp/layer1.png', 'tmp/layer2.png', 'tmp/layer3.png', 'tmp/dataset.xlsx')) print(paste('zip file complete', zipFile)) @@ -635,4 +635,4 @@ server <- function(input, output, session) { } -shinyApp(ui, server) \ No newline at end of file +shinyApp(ui, server)