Script in R to create a wordcloud from a twitter query