rownames = [val[1] for val in datas]
table = [[str(val) for val in line[2:]] for line in datas]
BarFrame(self.parent.parent, table, colnames, rownames)
-# tmpgraph = tempfile.mktemp(dir=self.parent.parent.TEMPDIR)
-# txt = barplot(table, rownames, colnames, self.parent.parent.RscriptsPath['Rgraph'], tmpgraph)
-# tmpscript = tempfile.mktemp(dir=self.parent.parent.TEMPDIR)
-# with open(tmpscript,'w') as f :
-# f.write(txt)
-# exec_rcode(self.parent.parent.RPath, tmpscript, wait = True)
-# win = MessageImage(self, u"Graphique", size=(700, 500))
-# win.addsaveimage(tmpgraph)
-# txt = "<img src='%s'>" % tmpgraph
-# win.HtmlPage.SetPage(txt)
-# win.Show(True)
def ongraphdendro(self, evt) :
corpus = self.parent.corpus
table = [[str(val) for val in line[2:]] for line in datas]
tmpgraph = tempfile.mktemp(dir=self.parent.parent.TEMPDIR)
BarFrame(self.parent.parent, table, colnames, rownames, tree = corpus.dictpathout['Rdendro'])
-# txt = dendroandbarplot(table, rownames, colnames, self.parent.parent.RscriptsPath['Rgraph'], tmpgraph, dendro=corpus.dictpathout['Rdendro'])
-# tmpscript = tempfile.mktemp(dir=self.parent.parent.TEMPDIR)
-# with open(tmpscript,'w') as f :
-# f.write(txt)
-# exec_rcode(self.parent.parent.RPath, tmpscript, wait = True)
-# win = MessageImage(self, u"Graphique", size=(700, 500))
-# win.addsaveimage(tmpgraph)
-# txt = "<img src='%s'>" % tmpgraph
-# win.HtmlPage.SetPage(txt)
-# win.Show(True)