Ad write.clustersTopTopics to the R code