From 82ef165c5f642a734662f20639381a98df737f5a Mon Sep 17 00:00:00 2001
From: Erik de Vries <erik@devries.pm>
Date: Tue, 25 Jun 2019 19:13:51 +0200
Subject: [PATCH] actor_fetcher: quick fix

---
 R/actor_fetcher.R | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/R/actor_fetcher.R b/R/actor_fetcher.R
index 1619667..f42609c 100644
--- a/R/actor_fetcher.R
+++ b/R/actor_fetcher.R
@@ -37,6 +37,7 @@ actor_fetcher <- function(out, sent_dict = NULL, cores = 1, localhost = NULL, va
     ### Party ids including actors
     p_ids_a <- c(p_ids,str_c(pid,'_a'))
     summarizer <- function (p_ids, dupe_df, merged_id) {
+        id <- dupe_df$`_id`[[1]]
         dupe_df <- dupe_df %>%
           filter(ids %in% p_ids)
         if (nrow(dupe_df) > 0) {
@@ -58,7 +59,7 @@ actor_fetcher <- function(out, sent_dict = NULL, cores = 1, localhost = NULL, va
             )
           )
         } else {
-          print(dupe_df$`_id`[[1]])
+          print(id)
           return(NULL)
         }
     }