From 5f64bb7bebfd62ec939df77e1f87825c96335f7c Mon Sep 17 00:00:00 2001
From: Schultheis <hschult@kerckhoff.mpg.de>
Date: Thu, 7 Jun 2018 09:48:34 +0200
Subject: [PATCH] download: delete tmp files

---
 R/function.R | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/R/function.R b/R/function.R
index cad4570..5001583 100644
--- a/R/function.R
+++ b/R/function.R
@@ -1193,6 +1193,9 @@ download <- function(file, filename, plot, width, height, ppi = 72, save_plot =
   # create zip file
   out <- utils::zip(zipfile = file, files = files, flags = "-j") # discard file path
 
+  # remove tmp files
+  file.remove(files)
+
   # remove notification
   shiny::removeNotification(session$ns("download-note"))