plot a wordcloud in shiny