From 085855908cdea922dc771d2b8418ba6ae2b7e88e Mon Sep 17 00:00:00 2001
From: Your Name <you@example.com>
Date: Thu, 2 Jul 2020 10:07:58 +0200
Subject: [PATCH] query_gen_actors: switched from Minister to Min

---
 R/query_gen_actors.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/R/query_gen_actors.R b/R/query_gen_actors.R
index ac3f23f..befa37a 100644
--- a/R/query_gen_actors.R
+++ b/R/query_gen_actors.R
@@ -67,7 +67,7 @@ query_gen_actors <- function(actor, country, pre_tags, post_tags) {
   }
 
   ### Generating queries for individuals (ministers, PM, Party leaders and MPs)
-  if (actor$`_source.function` == "JunMin" | actor$`_source.function` == "Minister" | actor$`_source.function` == "PM" | actor$`_source.function` == "PartyLeader" | actor$`_source.function` == "MP") {
+  if (actor$`_source.function` == "JunMin" | actor$`_source.function` == "Min" | actor$`_source.function` == "PM" | actor$`_source.function` == "PartyLeader" | actor$`_source.function` == "MP") {
     ## Adding a separate AND clause for inclusion of only last name to highlight all occurences of last name
     ## Regardless of whether the last name hit is because of a minister name or a full name proximity hit
 
@@ -89,7 +89,7 @@ query_gen_actors <- function(actor, country, pre_tags, post_tags) {
     }
 
     ### If actor is a minister, generate minister search
-    if (actor$`_source.function` == "Minister" | actor$`_source.function` == "PM") {
+    if (actor$`_source.function` == "Min" | actor$`_source.function` == "PM") {
       if (country == "no" || country == "dk") {
         minister <- str_split(actor$`_source.ministerSearch`, pattern = '-| ') %>%
           map(1)