Noticed that community detection in TextCommunities() and VisTextNet() functions is slightly different. From inspecting the code, looks like communities<-cluster_louvain(text_network) in the TextCommunities() function should be communities<-cluster_louvain(pruned). Love this library. Thanks for making it.