From 58fce4d560568e654f84efb9297b3c1306669adf Mon Sep 17 00:00:00 2001 From: Erik de Vries Date: Sun, 12 May 2019 13:08:09 +0200 Subject: [PATCH] actor_aggregation: added randomized short sleep, to allow for parallel execution --- R/actor_aggregation.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/actor_aggregation.R b/R/actor_aggregation.R index a9e20d5..93070a0 100644 --- a/R/actor_aggregation.R +++ b/R/actor_aggregation.R @@ -64,7 +64,7 @@ actor_aggregation <- function(row, actors, es_pwd, localhost, default_operator = } else { query <- paste0('computerCodes.actors:(',paste(actorids, collapse = ' '),') && publication_date:[',actor$`_source.startDate`,' TO ',actor$`_source.endDate`,']') } - + Sys.sleep(runif(1,0.1,0.3)) out <- elasticizer(query_string(paste0('country:',actor$`_source.country`,' && ',query), fields = c('computerCodes.actorsDetail', 'doctype', 'publication_date'), default_operator = default_operator), localhost = localhost,