From f015d4bfa3702398addf59a752a3110cbec022b0 Mon Sep 17 00:00:00 2001
From: Kwazao <kevin.ouazzani@gmail.com>
Date: Tue, 24 Mar 2020 18:57:18 +0100
Subject: [PATCH] correcting issue with stream folder

---
 R/stream.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/stream.R b/R/stream.R
index 50a51fcd..86d5d2f2 100644
--- a/R/stream.R
+++ b/R/stream.R
@@ -526,7 +526,7 @@ stream_tweets2 <- function(..., dir = NULL, append = FALSE) {
   pat <- paste0(file_name, "\\-[[:digit:]]{1,}\\.json$")
   jsons <- list.files(dir, pattern = pat, full.names = TRUE)
   file_name <- paste0(dir, ".json")
-  unlink(dir, recursive = TRUE)
+  #unlink(dir, recursive = TRUE)
   if (!parse) {
     return(invisible())
   }