sentencizer: Changed output, removed lemma list and added separate positive and negative sentiment sums

R/sentencizer.R

@@ -50,9 +50,12 @@ sentencizer <- function(out, sent_dict = NULL, localhost = NULL, validation = F)
           )
         ) %>%
         summarise(sent_sum = sum(prox),
+                  sent_sum_pos = sum(prox[prox>0]),
+                  sent_sum_neg = sum(prox[prox<0]),
                   words = length(lemma),
                   sent_words = sum(prox != 0),
-                  sent_lemmas = list(lem_u[prox != 0])) %>%
+                  # sent_lemmas = list(lem_u[prox != 0])
+                  ) %>%
         mutate(
           sent = sent_sum/words,
           arousal = sent_words/words