-# txt = barplot(tableout, words, title, self.Source.parent.RscriptsPath['Rgraph'], tmpgraph)
-# #print 'ATTENTION TEST R'
-# #txt = """
-# #sink('/Users/pierre/Desktop/qdfqsdfqsdfqsdf.txt')
-# #Sys.getlocale()
-# #sink()
-# #"""
-# tmpscript = tempfile.mktemp(dir=self.Source.parent.TEMPDIR)
-# file = open(tmpscript,'w')
-# file.write(txt)
-# file.close()
-# exec_rcode(self.Source.parent.RPath, tmpscript, wait = True)
-# w = 100 + (20 * nbwords) + (100 * nbcl)
-# h = 100 + (nbwords * 15)
-# if w > 1100 : w = 1100
-# if h > 800 : h = 800
-# if h < 450 : h = 450
-# win = MessageImage(self, u"Graphique", size=(w, h))
-# win.addsaveimage(tmpgraph)
-# txt = "<img src='%s'>" % tmpgraph
-# win.HtmlPage.SetPage(txt)
-# win.Show(True)