elasticizer: removed idiotic 15min sleep time after 500 batches

R/elasticizer.R

@@ -124,9 +124,6 @@ elasticizer <- function(query, src = T, index = 'maml', es_pwd = .rs.askForPassw
         if (length(update) > 0){
           out <-  jsonlite:::flatten(json$hits$hits)
           update(out, localhost = localhost, ...)
-          if (batch%%500 == 0) {
-            Sys.sleep(900)
-          }
         } else {
           out <- bind_rows(out, jsonlite:::flatten(json$hits$hits))
         }