R/trim_users.r

In alfcrisci/rTwChannel: Twitter channel stream analitics

#' trim_users
#'
#' @description Remove users as mentions from  tweet message
#'
#' @param  x   Character  Message of tweet
#' @return     Return the message of tweet without mentions.
#' @author  Istituto per la Bioeconomia Firenze Italy  Alfonso Crisci \email{alfonso.crisci@@ibe.cnr.it}
#' @keywords  retweet
#'
#'
#'
#' @export

trim_users <- function(x) {
  stringr::str_replace_all(x, '(@[[:alnum:]_]*)', '')
}