Now we need to access the text of the tweets. So we do it in this way (we also need to clean up the tweets from special characters that for now we don't need, like emoticons with the sapply function.)
coffee_tweets = sapply(c_tweets, function(t) t$getText())
coffee_tweets <- sapply(coffee_tweets,function(row) iconv(row, "latin1", "ASCII", sub=""))
and you can check your tweets with the head
function.
head(coffee_tweets)