From 3fcbbd1f1f16e7d9eb8113405d3f95eb2ffaf365 Mon Sep 17 00:00:00 2001
From: Erik de Vries <erik@devries.pm>
Date: Sat, 6 Jul 2019 18:34:25 +0200
Subject: [PATCH] actor_fetch: fixed error where source.ud would not exist

---
 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 cc404e9..02e7923 100644
--- a/R/actor_fetcher.R
+++ b/R/actor_fetcher.R
@@ -95,9 +95,10 @@ actor_fetcher <- function(out, sent_dict = NULL, cores = 1, localhost = NULL, va
           sent = sent_sum/words,
           arousal = sent_words/words
         )
+      out_row <- select(out_row, -`_source.ud`)
     }
     ### Unnest out_row to individual actor ids
-    out_row <- select(out_row, -`_source.ud`) %>%
+    out_row <- out_row %>%
       unnest(`_source.computerCodes.actorsDetail`, .preserve = colnames(.)) %>%
       unnest(ids, .preserve = colnames(.)) %>%
       rename(ids_list = ids) %>%