From 36f2b341a8634a0daabaf20d7b70bf7a50ae548a Mon Sep 17 00:00:00 2001
From: Your Name <you@example.com>
Date: Wed, 8 Jul 2020 16:09:04 +0200
Subject: [PATCH] sentencizer: removed derived output from function

---
 R/sentencizer.R | 6 +-----
 1 file changed, 1 insertion(+), 5 deletions(-)

diff --git a/R/sentencizer.R b/R/sentencizer.R
index 3447eb3..8abe72f 100644
--- a/R/sentencizer.R
+++ b/R/sentencizer.R
@@ -55,11 +55,7 @@ sentencizer <- function(out, sent_dict = NULL, localhost = NULL, validation = F)
                   words = length(lemma),
                   sent_words = sum(prox != 0),
                   # sent_lemmas = list(lem_u[prox != 0])
-                  ) %>%
-        mutate(
-          sent = sent_sum/words,
-          arousal = sent_words/words
-        )
+                  )
       ## If there is no dictionary, create a ud_sent, with just sentence ids and word counts per sentence
     } else {
       ud_sent <- ud_sent %>%