From 64a48e597750c4c0bb55132b41cef0a361bb2d9c Mon Sep 17 00:00:00 2001
From: Erik de Vries <erik.devries@uis.no>
Date: Wed, 20 Jan 2021 18:17:53 +0100
Subject: [PATCH] sent_merger: fixed bug with publication_date and grouper()

---
 R/sent_merger.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/sent_merger.R b/R/sent_merger.R
index 4685c88..9dae3b9 100644
--- a/R/sent_merger.R
+++ b/R/sent_merger.R
@@ -103,7 +103,7 @@ sent_merger <- function(df, actors_meta = NULL, actor_groups = NULL, pos_cutoff
   if(!is.null(actor_groups)) {
     output <- lapply(actor_groups,grouper, df = df) %>%
       rbindlist(.) %>%
-      left_join(text_sent, by="id") %>%
+      left_join(text_sent, by=c("id","publication_date")) %>%
       mutate(
         actor.prom = actor.occ/text.sentences,
         actor.rel_first = 1-(actor.first/text.sentences),