X-Git-Url: http://iramuteq.org/git?p=iramuteq;a=blobdiff_plain;f=tabchdalc.py;h=d47d20cd385ece9add5f058b138ee77df269fb15;hp=2b101dc5e12cdf4d29443a11c5a71ee8e7289701;hb=287f9e72c3e3d666b016dff0fa3dc39419adfcc2;hpb=6919f2ef8d85c176c7be824b606c4b71142e10fd

diff --git a/tabchdalc.py b/tabchdalc.py
index 2b101dc..d47d20c 100644
--- a/tabchdalc.py
+++ b/tabchdalc.py
@@ -83,7 +83,6 @@ class AnalyseQuest(AnalyseMatrix):
         if 'formatted' in self.parametres:
             self.tableau.make_01_alc_format(self.pathout['mat01.csv'])
         else:
-            print self.parametres['listsup']
             self.tableau.make_01_from_selection(self.parametres['listact'], self.parametres['listsup'])
         file = open(self.pathout['listeuce1'], 'w')
         file.write('num uce;num uc\n')
@@ -101,7 +100,10 @@ class AnalyseQuest(AnalyseMatrix):
         while pid.poll() == None :
             self.dlg.Pulse(u"Analyse (patientez...)")
             time.sleep(0.2)
-        check_Rresult(self.parent, pid)
+        if not check_Rresult(self.parent, pid) :
+            if self.dlg :
+                self.dlg.Destroy()
+            return 'NOK'
 #------------------------------------------------------------
         count += 1
         self.dlg.Update(count, u"Ecriture des résultats")
@@ -134,16 +136,16 @@ class AnalyseQuest(AnalyseMatrix):
         txt = ''
         txt += """
         source("%s")
-        """ % self.parent.RscriptsPath['chdfunct']
+        """ % ffr(self.parent.RscriptsPath['chdfunct'])
         txt += """
         load("%s")
-        """ % self.pathout['RData']
+        """ % ffr(self.pathout['RData'])
         txt += """
         dataact<-read.csv2("%s", header = FALSE, sep = ';',quote = '\"', row.names = 1, na.strings = 'NA')
-        """ % self.pathout['Contout']
+        """ % ffr(self.pathout['Contout'])
         txt += """
         dataet<-read.csv2("%s", header = FALSE, sep = ';',quote = '\"', row.names = 1, na.strings = 'NA')
-        """ % self.pathout['ContEtOut']
+        """ % ffr(self.pathout['ContEtOut'])
         txt += """
         clnb<-%i
         """ % self.clnb
@@ -151,7 +153,7 @@ class AnalyseQuest(AnalyseMatrix):
         tablesqrpact<-BuildProf(as.matrix(dataact),n1,clnb)
         tablesqrpet<-BuildProf(as.matrix(dataet),n1,clnb)
         PrintProfile(n1,tablesqrpact[4],tablesqrpet[4],tablesqrpact[5],tablesqrpet[5],%i,"%s","%s")
-        """ % (self.clnb, self.pathout['PROFILE_OUT'], self.pathout['ANTIPRO_OUT'])
+        """ % (self.clnb, ffr(self.pathout['PROFILE_OUT']), ffr(self.pathout['ANTIPRO_OUT']))
         txt += """
         colnames(tablesqrpact[[2]])<-paste('classe',1:clnb,sep=' ')
         colnames(tablesqrpact[[1]])<-paste('classe',1:clnb,sep=' ')
@@ -161,13 +163,13 @@ class AnalyseQuest(AnalyseMatrix):
         ptabletot<-rbind(as.data.frame(tablesqrpact[1]),as.data.frame(tablesqrpet[1]))
         gbcluster<-n1
         write.csv2(chistabletot,file="%s")
-        """ % self.pathout['chisqtable']
+        """ % ffr(self.pathout['chisqtable'])
         txt += """
         write.csv2(ptabletot,file="%s")
-        """ % self.pathout['ptable']
+        """ % ffr(self.pathout['ptable'])
         txt += """
         write.csv2(gbcluster,file="%s")
-        """ % self.pathout['SbyClasseOut']
+        """ % ffr(self.pathout['SbyClasseOut'])
         if self.clnb > 2 :
             txt += """
             library(ca)
@@ -180,7 +182,7 @@ class AnalyseQuest(AnalyseMatrix):
             fin<-rowtot
             afc<-AddCorrelationOk(afc)
             source("%s")
-            """ % self.parent.RscriptsPath['Rgraph']
+            """ % ffr(self.parent.RscriptsPath['Rgraph'])
     
             txt += """
             afc <- summary.ca.dm(afc)
@@ -188,7 +190,7 @@ class AnalyseQuest(AnalyseMatrix):
             write.csv2(afc_table$facteur, file = "%s")
             write.csv2(afc_table$colonne, file = "%s")
             write.csv2(afc_table$ligne, file = "%s")
-            """ % (self.pathout['afc_facteur'], self.pathout['afc_col'], self.pathout['afc_row'])
+            """ % (ffr(self.pathout['afc_facteur']), ffr(self.pathout['afc_col']), ffr(self.pathout['afc_row']))
             
             txt += """
             xlab <- paste('facteur 1 - ', round(afc$facteur[1,2],2), sep = '')
@@ -202,16 +204,16 @@ class AnalyseQuest(AnalyseMatrix):
             """ % "0.9"
             txt += """
             xyminmax <- PlotAfc2dCoul(afc, as.data.frame(chistabletot), "%s", what='coord', deb=1, fin=(debet-1), xlab = xlab, ylab = ylab)
-            """ % (self.pathout['AFC2DL_OUT'])
+            """ % (ffr(self.pathout['AFC2DL_OUT']))
             txt += """
             PlotAfc2dCoul(afc, as.data.frame(chistabletot), "%s", what='coord', deb=debet, fin=fin, xlab = xlab, ylab = ylab, xmin = xyminmax$xminmax[1], xmax = xyminmax$xminmax[2], ymin = xyminmax$yminmax[1], ymax = xyminmax$yminmax[2])
-            """ % (self.pathout['AFC2DSL_OUT'])
+            """ % (ffr(self.pathout['AFC2DSL_OUT']))
             txt += """
             PlotAfc2dCoul(afc, as.data.frame(chistabletot), "%s", col = TRUE, what='coord', xlab = xlab, ylab = ylab, xmin = xyminmax$xminmax[1], xmax = xyminmax$xminmax[2], ymin = xyminmax$yminmax[1], ymax = xyminmax$yminmax[2])
-            """ % (self.pathout['AFC2DCL_OUT'])
+            """ % (ffr(self.pathout['AFC2DCL_OUT']))
         txt += """
         save.image(file="%s")
-        """ % self.pathout['RData']
+        """ % ffr(self.pathout['RData'])
         tmpfile = tempfile.mktemp(dir=self.parent.TEMPDIR)
         tmpscript = open(tmpfile, 'w')
         tmpscript.write(txt)