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

test

Browse Source
master
Erik de Vries 3 years ago
parent 0b17555d99
commit 2944039f73
1 changed files with 0 additions and 4 deletions
Show Stats Download Patch File Download Diff File

4
R/sent_merger.R
Unescape View File

@ -201,11 +201,7 @@ sent_merger <- function(df, actors_meta = NULL, actor_groups = NULL, pos_cutoff
publication_date = first(publication_date) publication_date = first(publication_date)
), by = c('id','partyId')] # Summarize by article and partyId ), by = c('id','partyId')] # Summarize by article and partyId
# Add party metadata # Add party metadata
<<<<<<< HEAD
parties_actors2 <- actors_meta[str_starts(ids, 'P_')][parties_actors, on = c('partyId'), mult = 'first'][!is.na(id),.(ids = str_c(partyId,"_mfsa"), (.SD)), .SDcols = -c('ids')]
=======
parties_actors <- actors_meta[str_starts(ids, 'P_')][parties_actors, on = c('partyId'), mult = 'first'][!is.na(id),.(ids = str_c(partyId,"_mfsa"), (.SD)), .SDcols = -c('ids')] parties_actors <- actors_meta[str_starts(ids, 'P_')][parties_actors, on = c('partyId'), mult = 'first'][!is.na(id),.(ids = str_c(partyId,"_mfsa"), (.SD)), .SDcols = -c('ids')]
>>>>>>> ce430ca (sent_merger: Correctly add party metadata for _mfsa aggregations)
## Generate party aggregations (mfs) ## Generate party aggregations (mfs)
parties <- df[str_ends(ids,'_f') | str_ends(ids,'_s'),.( parties <- df[str_ends(ids,'_f') | str_ends(ids,'_s'),.(

Write Preview
Loading…
Cancel
Save