|
|
|
@ -15,7 +15,8 @@
|
|
|
|
|
#################################################################################################
|
|
|
|
|
query_gen_actors <- function(actor, country, pre_tags, post_tags) {
|
|
|
|
|
generator <- function(country, startdate, enddate, querystring, pre_tags, post_tags, actorid) {
|
|
|
|
|
return(paste0('{"query":
|
|
|
|
|
return(paste0('{"_source": ["ud"],
|
|
|
|
|
"query":
|
|
|
|
|
{"bool": {
|
|
|
|
|
"filter":[
|
|
|
|
|
{"term":{"country":"',country,'"}},
|
|
|
|
|