removed some unused aggregations

R/sent_merger.R

@@ -135,26 +135,6 @@ sent_merger <- function(df, actors_meta = NULL, actor_groups = NULL, pos_cutoff
                 publication_date = first(publication_date),
                 ids = 'all'), by = list(id)]
 
-    all_ind <- df[str_detect(ids, 'A_'),
-                  .(actor.sent = sum(sent_binary_weighted)/sum(words),
-                    actor.sent_words = sum(sent_words),
-                    actor.words = sum(words),
-                    actor.arousal = sum(sent_words)/sum(words),
-                    actor.first = first(sentence_id),
-                    actor.occ = .N,
-                    publication_date = first(publication_date),
-                    ids = 'ind'), by = list(id)]
-
-    all_par <- df[str_detect(ids, '_f|_s'),
-                  .(actor.sent = sum(sent_binary_weighted)/sum(words),
-                    actor.sent_words = sum(sent_words),
-                    actor.words = sum(words),
-                    actor.arousal = sum(sent_words)/sum(words),
-                    actor.first = first(sentence_id),
-                    actor.occ = .N,
-                    publication_date = first(publication_date),
-                    ids = 'par'), by = list(id)]
-
     ## Unnest to actor level
     df <- df[,.(ids = as.character(unlist(ids))),
              by = list(id,publication_date,sentence_id, sent_sum, words, sent_words,sent_binary_weighted)]