ShowTweets <- function(name){ library(bitops) library(twitteR) library(httr) library(RCurl) library(ROAuth) tws <- searchTwitter(name,n=10) var_tw <- sapply(tws, function(x) x$getText()) var_tw }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.