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

actor_fetcher: small fixes

Browse Source
master
Your Name 4 years ago
parent 8eedec8bb5
commit 7f958bbc11
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File

7
R/actor_fetcher.R
Unescape View File

@ -76,14 +76,15 @@ actor_fetcher <- function(out, sent_dict = NULL, actor_ids = NULL, cores = 1, lo
ud_sent <- out_row$`_source.ud`[[1]] %>% ud_sent <- out_row$`_source.ud`[[1]] %>%
select(-one_of('exists')) %>% select(-one_of('exists')) %>%
unnest() %>% unnest() %>%
filter(upos != 'PUNCT') %>% # For getting proper word counts filter(upos != 'PUNCT') # For getting proper word counts
if ("lem_u" %in% colnames(sent_dict)) { if ("lem_u" %in% colnames(sent_dict)) {
ud_sent <- ud_sent %>% ud_sent <- ud_sent %>%
mutate(lem_u = str_c(lemma,'_',upos)) %>% mutate(lem_u = str_c(lemma,'_',upos)) %>%
left_join(sent_dict, by = 'lem_u') left_join(sent_dict, by = 'lem_u')
} else if ("lemma" %in% colnames(sent_dict)) { } else if ("lemma" %in% colnames(sent_dict)) {
ud_sent <- ud_sent %>% ud_sent <- ud_sent %>%
left_join(sent_dict, by = 'lemma') left_join(sent_dict, by = 'lemma') %>%
mutate(lem_u = lemma)
} }
ud_sent <- ud_sent %>% ud_sent <- ud_sent %>%
group_by(sentence_id) %>% group_by(sentence_id) %>%
@ -119,7 +120,7 @@ actor_fetcher <- function(out, sent_dict = NULL, actor_ids = NULL, cores = 1, lo
) )
if (!is.null(actor_ids)) { if (!is.null(actor_ids)) {
out_row <- filter(out_row, ids %in% actorids ) out_row <- filter(out_row, ids %in% actor_ids )
} }
### Get list of party ids occuring more than once in the document ### Get list of party ids occuring more than once in the document

Write Preview
Loading…
Cancel
Save