From 86c843de382b47bd816a365ff865a62e4cc4a2ba Mon Sep 17 00:00:00 2001 From: Vitalie Spinu Date: Thu, 14 Apr 2016 00:45:34 +0200 Subject: [PATCH] Don't sort by sentiment in sentiment_by --- R/sentiment_by.R | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/R/sentiment_by.R b/R/sentiment_by.R index a74e5b7..b7e096d 100644 --- a/R/sentiment_by.R +++ b/R/sentiment_by.R @@ -83,10 +83,11 @@ sentiment_by <- function(text.var, by = NULL, group.names, ...){ uncombined <- out2 <- cbind(group_dat, out) - out2 <- out2[, list('word_count' = sum(word_count, na.rm = TRUE), - 'sd' = stats::sd(sentiment, na.rm = TRUE), - 'ave_sentiment' = mean(sentiment, na.rm = TRUE)), keyby = G][order(-ave_sentiment)] - + out2 <- + out2[, list(word_count = sum(word_count, na.rm = TRUE), + sd = stats::sd(sentiment, na.rm = TRUE), + ave_sentiment = mean(sentiment, na.rm = TRUE)), + keyby = G] } class(out2) <- unique(c("sentiment_by", class(out)))