fix bug in module report generation

WGCNAanalysis.R

@@ -439,8 +439,8 @@ for(mod in moduleOrder){
 
 
 ####Write report####
-foreach(module=moduleOrder) %dopar% {
-	moduleGenes <- genesMod[which(genesMod$Module==module),"Gene"]
+foreach(module = moduleOrder) %dopar% {
+	moduleGenes <- as.character(genesMod[which(genesMod$Module==module),"Gene"])
 	if(module!="grey"){
 	  pdf(paste0("circlePlot/",module,"_circlePlot.pdf"),onefile = TRUE,width=12,height=12)
 	  bc <- cor(datExpr[,moduleGenes])