R/guide.sentiment.R

In sabalicodev/sabali: Twitter Text & Sentiment Analysis for R

#' rSabali Guide: Sentiment
#'
#' Returns list of emotions in the sentiment analysis
#' @param activate Do you need help? Defaults to TRUE.
#' @keywords help
#' @export
#' @examples
#' sentiment.emotions()
 
sentiment.emotions <- function(activate = TRUE){
if(activate == TRUE){

sentiment.emotions <- data.frame("Emotions" = c("anger", "anticipation", "disgust", "fear", "joy", "sadness", "surprise", "trust", "negative", "positive"))

print(sentiment.emotions)

} else {

print("Cannot Access Guide")

}
}