From 0e593075eebdab68c9dcaa5ee54d96e9cad49c2a Mon Sep 17 00:00:00 2001
From: Your Name <you@example.com>
Date: Mon, 15 Jun 2020 19:04:26 +0200
Subject: [PATCH] query_gen_actors: only retrieve ud field from source

---
 R/query_gen_actors.R | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/R/query_gen_actors.R b/R/query_gen_actors.R
index c44bb24..ece6119 100644
--- a/R/query_gen_actors.R
+++ b/R/query_gen_actors.R
@@ -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,'"}},