R/tweet_metrics_dict.R

In lubrunn/DSP_App_Abgabe: What the Package Does (One Line, Title Case)

# install.packages("hash")
# library(hash)
#
# d <- hash()
#
#
#
# d[["sentiment"]] <- "Sentiment"
# d[["sentiment_rt"]] = "Retweets Weighted Sentiment"
# d[["sentiment_likes"]] = "Likes Weighted Sentiment"
# d[["sentiment_tweet_length"]] = "Length Weighted Sentiment"
# d[["rt"]] =  "Retweets"
# d[["likes"]] = "Likes"
# d[["tweet_length"]] = "Tweet Length"
#
#
#
# input_metric <- "rt"
#
# d[[input_metric]]
#
#
# input_metric <- c("rt", "likes")
#
# d[input_metric]
#
#
# input_metric <- stringr::str_replace(input_metric, "likes", "Likes")
# input_metric <- stringr::str_replace(input_metric, "rt", "Retweets")
# input_metric <- stringr::str_replace(input_metric, "tweet_length", "Tweet Length")
# input_metric <- stringr::str_replace(input_metric, "sentiment", "Sentiment")
# input_metric <- stringr::str_replace(input_metric, "sentiment_rt", "Retweets weighted Sentiment")
# input_metric <- stringr::str_replace(input_metric, "sentiment_likes", "Likes weighted Sentiment")
# input_metric <- stringr::str_replace(input_metric, "sentiment_length", "Tweet Length weighted Sentiment")
#
#