query_gen_actors: switched from Minister to Min

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)