From ac37d836f50c576848d30369bbfcdc626b467ed8 Mon Sep 17 00:00:00 2001
From: Erik de Vries <erik@devries.pm>
Date: Thu, 25 Apr 2019 17:02:26 +0200
Subject: [PATCH] elasticizer: added scroll_clear to null hits as well

---
 R/elasticizer.R | 1 +
 1 file changed, 1 insertion(+)

diff --git a/R/elasticizer.R b/R/elasticizer.R
index 02271f9..fa3f5bc 100644
--- a/R/elasticizer.R
+++ b/R/elasticizer.R
@@ -93,6 +93,7 @@ elasticizer <- function(query, src = T, index = 'maml', es_pwd = .rs.askForPassw
   }
   json <- fromJSON(res)
   if (json$hits$total$value == 0) {
+    scroll_clear(conn = conn, x = json$`_scroll_id`)
     return(json)
   } else {
     out <-  jsonlite:::flatten(json$hits$hits)