R/word_cloud.R

In shinyr: Data Insights Through Inbuilt R Shiny App

#' getWordCloud
#' @title Get Word Cloud
#' @description Get word cloud for given table of words' frequencies
#' @param d table of word's frequency
#' @importFrom wordcloud wordcloud
#' @import RColorBrewer
#' @return Word cloud plot
#' @export
#' @examples
#' \donttest{
#' x <- getFeqTable("Hello! R is Great")
#' getWordCloud(x)
#' }
getWordCloud <- function(d) {
  wordcloud::wordcloud(words = d$word, freq = d$freq, min.freq = 1,
            max.words=200, random.order=FALSE, rot.per=0.35,
            colors=RColorBrewer::brewer.pal(8, "Dark2"))
}