query_gen_actors: switched from Minister to Min

master
Your Name 4 years ago
parent b406304c80
commit 085855908c

@ -67,7 +67,7 @@ query_gen_actors <- function(actor, country, pre_tags, post_tags) {
} }
### Generating queries for individuals (ministers, PM, Party leaders and MPs) ### 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 ## 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 ## 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 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") { if (country == "no" || country == "dk") {
minister <- str_split(actor$`_source.ministerSearch`, pattern = '-| ') %>% minister <- str_split(actor$`_source.ministerSearch`, pattern = '-| ') %>%
map(1) map(1)

Loading…
Cancel
Save