R/get_sunsentiments.R

In rsefraou/sunscReen: Compute and plot pi

#' @title get_sunsentiments
#'
#' @describeIn get_sunsentiments gets sentiments about sunscreens depending on words
#' @param lexicon A \code{character} (character) used to name the lexicon
#' @return A \code{dataframe} of words with sentiments
#' @export
#' @examples
#' get_sunsentiments("sunscReen")
get_sunsentiments <- function(lexicon = c("sunscReen")) {
  lexicon <- match.arg(lexicon)

  sunscReen = lexicon_sunscReen()
}


#' @title lexicon_sunscReen
#'
#' @describeIn lexicon_sunscReen is used in getsunsentiments
#' @return A \code{dataframe} of sentiments
#' @export
lexicon_sunscReen <- function() {
  readRDS("../data/sunscReen.rds")
  }