X-Git-Url: http://iramuteq.org/git?p=iramuteq;a=blobdiff_plain;f=PrintRScript.py;h=7a847a63dd8903e79eef23fd0d52c690bb94469e;hp=1bb0af1ce65a7afab05373244caabced69725125;hb=ebaa7c5d0ddfb75fb535f8383acb37beafd91993;hpb=c5650ea708101e654d8851350494c0e9a712b6ed

diff --git a/PrintRScript.py b/PrintRScript.py
index 1bb0af1..7a847a6 100644
--- a/PrintRScript.py
+++ b/PrintRScript.py
@@ -919,7 +919,8 @@ class WordCloudRScript(PrintRScript) :
         txt = """
         act <- read.csv2("%s", header = FALSE, row.names=1, sep='\t')
         selected.col <- read.table("%s")
-        toprint <- act[selected.col[,1] + 1,]
+        toprint <- as.matrix(act[selected.col[,1] + 1,])
+        rownames(toprint) <- rownames(act)[selected.col[,1] + 1]
         open_file_graph("%s", width = %i, height = %i)
         par(bg=rgb%s)
         wordcloud(row.names(toprint), toprint[,1], scale=c(%f,%f), random.order=FALSE, colors=rgb%s)