diff --git a/R/actorizer.R b/R/actorizer.R index 2cecb18..dbdfc0b 100644 --- a/R/actorizer.R +++ b/R/actorizer.R @@ -9,13 +9,12 @@ #' @param identifier String used to mark highlights. Should be a lowercase string #' @param udmodel The udpipe model used for parsing every hit #' @param ver Short string (preferably a single word/sequence) indicating the version of the updated document (i.e. for a udpipe update this string might be 'udV2') -#' @param type Either 'add' or 'set', to determine wether actors should be added to the list, or overwritten. Default = 'add' #' @param es_super Password for write access to ElasticSearch #' @return As this is a nested function used within elasticizer, there is no return output #' @export #' @examples #' actorizer(out, localhost = F, ids, type, prefix, postfix, identifier, udmodel, es_super) -actorizer <- function(out, localhost = F, ids, type, prefix, postfix, identifier, udmodel, es_super, ver, type = 'add') { +actorizer <- function(out, localhost = F, ids, type, prefix, postfix, identifier, udmodel, es_super, ver) { sentencizer <- function(row, out, udmodel, ids, prefix, postfix, identifier) { ### If no pre or postfixes, match *not nothing* i.e. anything if (is.na(prefix) || prefix == '') { @@ -48,7 +47,7 @@ actorizer <- function(out, localhost = F, ids, type, prefix, postfix, identifier 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 = type, ver = ver) - bulk <- c(bulk,apply(updates[c(1,8)], 1, bulk_writer, varname='actors', type = type, ver = ver)) + bulk <- apply(updates, 1, bulk_writer, varname ='actorsDetail', type = 'add', ver = ver) + bulk <- c(bulk,apply(updates[c(1,8)], 1, bulk_writer, varname='actors', type = 'add', ver = ver)) return(elastic_update(bulk, es_super = es_super, localhost = localhost)) }