From 853c117dafeea62975e3d1ab2204a7a41fdc0a67 Mon Sep 17 00:00:00 2001
From: Erik de Vries <erik@devries.pm>
Date: Fri, 5 Jul 2019 14:43:15 +0200
Subject: [PATCH] actor_fetcher: change in code to keep original actorid lists
 in output query_gen_actors: added code for junior ministers in BE and NL

---
 R/actor_fetcher.R    | 2 +-
 R/query_gen_actors.R | 4 ++++
 2 files changed, 5 insertions(+), 1 deletion(-)

diff --git a/R/actor_fetcher.R b/R/actor_fetcher.R
index 781483e..cc404e9 100644
--- a/R/actor_fetcher.R
+++ b/R/actor_fetcher.R
@@ -100,7 +100,7 @@ actor_fetcher <- function(out, sent_dict = NULL, cores = 1, localhost = NULL, va
     out_row <- select(out_row, -`_source.ud`) %>%
       unnest(`_source.computerCodes.actorsDetail`, .preserve = colnames(.)) %>%
       unnest(ids, .preserve = colnames(.)) %>%
-      select(-ids) %>%
+      rename(ids_list = ids) %>%
       rename(ids = ids1) %>%
       mutate(
         pids = str_sub(ids, start = 1, end = -3)
diff --git a/R/query_gen_actors.R b/R/query_gen_actors.R
index 057fc1e..bab3546 100644
--- a/R/query_gen_actors.R
+++ b/R/query_gen_actors.R
@@ -114,6 +114,10 @@ query_gen_actors <- function(actor, country, pre_tags, post_tags) {
                         "Premier",
                         "premier")
         }
+        if(actor$`_source.function` == "JunMin") {
+          minister <- c("Staatssecretaris",
+                        "staatssecretaris")
+        }
       }
       grid <- crossing(first = last_list, last = minister, prox = 5)
       ministername <- lapply(1:nrow(grid), prox_gen, grid = grid)