R/guide.stopwords.R

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

#' Sabali Guide: Stopwords
#'
#' This function activates the Sabali Help Guide for Operators
#' @param activate Do you need help? Defaults to TRUE.
#' @keywords help
#' @export
#' @examples
#' stopwords.languages()
 
stopwords.languages <- function(activate = TRUE){
if(activate == TRUE){

stopwords.languages <- data.frame("Language" = c("SMART", "catalan", "danish", "dutch", "english", "finnish", "french", "german", "hungarian", "italian", "norwegian", "portuguese", "romanian", "russian", "spanish", "swedish"))

print(stopwords.languages)

} else {

print("Cannot Access Guide")

}
}