JNCC/MESO
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Write ZIP file to export directory (tmp)

Browse Source
This commit is contained in:
Craig Williams
2019-04-11 10:32:52 +01:00
parent 624d17c487
commit 1b8c0d83db
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
app.R
View File

@@ -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)
shinyApp(ui, server)