R/wordCloud.R

In UBC-MDS/Ranimalsgonewild: Animal themed text filters

#' Title: This function uses a web URL and outputs a wordcloud with its content in the shape of a random animal's name.
#'
#' @param link String Character
#'
#' @return an image with the wordcloud
#' @export
#'
#' @examples
#' link = "https://www.britannica.com/place/Japan"
#' wordCloud(link)
wordCloud <- function(link) {

  output <- NULL
  len <- NULL
  options(warn=-1)

  #CHECKING IF THE INPUT DATA IS A WEB LINK OF CHAR TYPE
  if(!is.character(link)){
    stop("Inappropriate input data type! Link should be character")
  }

  #CHECKING IF THE INPUT DATA IS OF LENGTH 1
  if(length(link) != 1){
    stop("Incorrect amount of input values! Expecting only 1 input text string.")
  }

  #CONVERTING WEBLINK CONTENT INTO A TEXT FILE
  txt <- htm2txt::htm2txt(link)
  grDevices::graphics.off()
  graphics::par(mar = rep(2, 4))

  source('http://www.sthda.com/upload/rquery_wordcloud.r')

  #CREATING A DF WITH WORDS AND FREQUENCY OF OCCURENCE
  res <- rquery.wordcloud(txt, type ="file", lang = "english")$freqTable

  #REMOVING PUNCTUATIONS AND SPECIAL CHARACTERS
  freqTable1 <- subset(res, grepl('^[A-Za-z]+$', word))

  #CALCULATING TOTAL NUMBER OF WORDS
  len1 <- sum(nchar(freqTable1$freq))

  #SPITTING OUT WORDCLOUDS AS NAMES OF ANIMALS CONSTRUCTED FROM TEXT FROM THE WEBSITE BASED ON LENGTH
  if (len1 <= 1000) {
    wordcloud2::letterCloud(freqTable1, word = "DUCK")
    len <- len1
  } else if (len1 > 1000 & len1 <= 2000) {
    wordcloud2::letterCloud(freqTable1, word = "MONKEY")
    len <- len1
  } else if (len1>2000 & len1<=3000) {
    wordcloud2::letterCloud(freqTable1, word ="GIRAFFE")
    len <- len1
  } else {
    wordcloud2::letterCloud(freqTable1, word = "WHALE")
    len <- len1
  }


}