#' retweeted_users
#'
#' @description Extract any user from native retweets from a tweet message
#'
#' @param x Character Messages of channel's tweets
#' @return A vector of retweted users
#' @author Istituto per la Bioeconomia Firenze Italy Alfonso Crisci \email{alfonso.crisci@@ibe.cnr.it}
#' @keywords user, retweet
#'
#' @references qdapRegex R packages
#'
#' @export
retweeted_users=function(x) {
pat<-"RT @([:alnum:]*[_]*[:alnum:]*):"
res = unlist(qdapRegex::rm_default(x, pattern=pat,extract=T,ignore.case=T))
res=ifelse(length(res)>1,res[length(res)],res[1])
res = gsub(":","",gsub("^RT @","",res))
return(res)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.