edevries
/
mamlr
2
0
Fork 0
Code Issues Pull Requests Releases 3 Wiki Activity

actorizer: added clean = F to have the exact same behavior in ud_update and actorizer

Browse Source
master
Erik de Vries 6 years ago
parent 7218f6b8d0
commit e3b57ed9e3
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File

2
R/actorizer.R
Unescape View File

@ -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))))) 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) 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())) 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) bulk <- apply(updates, 1, bulk_writer, varname ='actorsDetail', type = 'add', ver = ver)

Write Preview
Loading…
Cancel
Save