diff --git a/R/sentencizer.R b/R/sentencizer.R index ea7be7d..4b4ecf7 100644 --- a/R/sentencizer.R +++ b/R/sentencizer.R @@ -63,7 +63,7 @@ sentencizer <- function(out, sent_dict = NULL, localhost = NULL, validation = F) ### Unnest out_row to individual actor ids - if("_source.computerCodes.actorsDetail2" %in% colnames(out)) { + if("_source.computerCodes.actorsDetail" %in% colnames(out)) { out <- out %>% unnest(`_source.computerCodes.actorsDetail`) %>% # mutate(ids_list = ids) %>%