From 6a94bc3ed80a38c410a63e314ff5b12de3bdf1ef Mon Sep 17 00:00:00 2001 From: Erik de Vries Date: Mon, 29 Apr 2019 12:21:24 +0200 Subject: [PATCH] query_gen_actors: removed quotation marks from Minister search part --- R/query_gen_actors.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/query_gen_actors.R b/R/query_gen_actors.R index 8516cfd..b9b2fb1 100644 --- a/R/query_gen_actors.R +++ b/R/query_gen_actors.R @@ -136,7 +136,7 @@ query_gen_actors <- function(actor, country, pre_tags, post_tags) { str_c(actor$`_source.ministerName`,genitive)), collapse = ' ') query_string <- paste0(query_string,') OR (',lastname,' AND (',names,') AND (',unlist(minister),')))') } else if (country == "nl" | country == "be") { # If country is nl or be, add a requirement for Minister to the query - query_string <- paste0(query_string,') OR (',lastname,' AND (',names,') AND ("Minister" OR "minister")))') + query_string <- paste0(query_string,') OR (',lastname,' AND (',names,') AND (Minister OR minister)))') } else { query_string <- paste0(query_string,') OR (',lastname,' AND (',names,')))') }