From e3b57ed9e3e30271113496cc4a4ee3e9ead98e9c Mon Sep 17 00:00:00 2001 From: Erik de Vries Date: Mon, 14 Jan 2019 14:48:04 +0100 Subject: [PATCH] actorizer: added clean = F to have the exact same behavior in ud_update and actorizer --- R/actorizer.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/actorizer.R b/R/actorizer.R index d6af3c5..68c6b1c 100644 --- a/R/actorizer.R +++ b/R/actorizer.R @@ -45,7 +45,7 @@ actorizer <- function(out, localhost = F, ids, type, prefix, postfix, identifier return(data.frame(ud,occ = occurences,prom = prominence,rel_first = rel_first, ids = I(list(list(ids))))) } - out <- out_parser(out, field = 'highlight') + out <- out_parser(out, field = 'highlight', clean = F) ids <- fromJSON(ids) updates <- bind_rows(mclapply(seq(1,length(out[[1]]),1), sentencizer, out = out, ids = ids, postfix = postfix, prefix=prefix, identifier=identifier, udmodel = udmodel, mc.cores = detectCores())) bulk <- apply(updates, 1, bulk_writer, varname ='actorsDetail', type = 'add', ver = ver)