#* topic_clouds_1:
#*   attr:
#*     fillcolor: '3'
#*   desc: Topic cloud plot.
#*   ext: R
#*   inputs:
#*   - top_1000_terms_per_topic
#* 

topic_clouds_1 <- function( top_1000_terms_per_topic) {

  plot_topic_clouds(top_1000_terms_per_topic, 42*0 + (1:42))
  
  return(NULL)
}