X-Git-Url: http://iramuteq.org/git?a=blobdiff_plain;f=checkinstall.py;h=7b8e51b864945a4283d9a2bd81f1a95201ff43fe;hb=916692a81898bdf694bfcf73f6c5e6a7d3bba8d0;hp=d355e7add1898a253f79ea36e388bca4a6948057;hpb=eaa044d1147e26b82942ce56d5965c83fdddf069;p=iramuteq diff --git a/checkinstall.py b/checkinstall.py index d355e7a..7b8e51b 100644 --- a/checkinstall.py +++ b/checkinstall.py @@ -120,7 +120,7 @@ def CheckRPath(PathPath): return False else : return True - + def FindRPAthWin32(): BestPath=False progpaths=[] @@ -135,7 +135,7 @@ def FindRPAthWin32(): for progpath in progpaths : rpath = os.path.join(progpath, "R") if os.path.exists(rpath) : - for maj in range(2,4) : + for maj in range(3,5) : for i in range(0,30): for j in range(0,20): for poss in ['', 'i386', 'x64'] : @@ -160,7 +160,7 @@ def RLibsAreInstalled(self) : return True def CheckRPackages(self): - listdep = ['ca', 'rgl', 'gee', 'ape', 'igraph','proxy', 'wordcloud', 'irlba', 'textometry'] + listdep = ['ca', 'gee', 'ape', 'igraph','proxy', 'wordcloud', 'irlba', 'textometry', 'sna', 'network', 'intergraph', 'rgl'] nolib = [] i=0 dlg = wx.ProgressDialog("Test des librairies de R", "test en cours...", maximum = len(listdep), parent=self, style=wx.PD_APP_MODAL | wx.PD_AUTO_HIDE | wx.PD_ELAPSED_TIME | wx.PD_CAN_ABORT) @@ -186,12 +186,12 @@ def CheckRPackages(self): %s Sans ces bibliothèques, IRamuteq ne fonctionnera pas. - + - Vous pouvez installer ces bibliothèques manuellement : Cliquez sur Annuler Lancez R Tapez install.packages('nom de la bibiothèque') - + - ou laisser IRamuteq les installer automatiquement en cliquant sur VALIDER . Les bibliothèques seront téléchargées depuis le site miroir de R %s. """ % (txt, self.pref.get('iramuteq','rmirror')) @@ -206,7 +206,7 @@ Sans ces bibliothèques, IRamuteq ne fonctionnera pas. style=wx.PD_APP_MODAL | wx.PD_AUTO_HIDE | wx.PD_ELAPSED_TIME | wx.PD_CAN_ABORT ) dlg.Center() - dlg.Update(1, "installation...") + dlg.Update(1, "installation...") compt = 0 for bib in nolib : @@ -215,7 +215,7 @@ Sans ces bibliothèques, IRamuteq ne fonctionnera pas. txt = """ userdir <- unlist(strsplit(Sys.getenv("R_LIBS_USER"), .Platform$path.sep))[1] if (!file.exists(userdir)) { - if (!dir.create(userdir, recursive = TRUE)) + if (!dir.create(userdir, recursive = TRUE)) print('pas possible') lib <- userdir .libPaths(c(userdir, .libPaths())) @@ -236,7 +236,7 @@ Sans ces bibliothèques, IRamuteq ne fonctionnera pas. dlg.Update(len(nolib) + 1, 'fin') dlg.Destroy() dial.Destroy() - if nolib == [] : + if nolib == [] : self.pref.set('iramuteq', 'rlibs', True) with open(self.ConfigPath['preferences'], 'w') as f : self.pref.write(f)