Try to install R package rgdal if unavailable.

cpolymeris@gmail.com · cpolymeris@gmail.com · commit 13e6dcb33143 · 2012-08-19T15:30:50.000Z
git-svn-id: http://sextante.googlecode.com/svn/trunk/soft/bindings/qgis-plugin@353 881b9c09-3ef8-f3c2-ec3d-21d735c97f4d
diff --git a/src/sextante/r/RAlgorithm.py b/src/sextante/r/RAlgorithm.py
@@ -227,6 +227,13 @@ def getExportCommands(self):
 
     def getImportCommands(self):
         commands = []
+        # if rgdal is not available, try to install it
+        # just use US mirror
+        commands.append('options("repos"="http://cran.us.r-project.org")')
+        rLibDir = "%s/rlibs" % SextanteUtils.userFolder()
+        if not os.path.isdir(rLibDir): os.mkdir(rLibDir)
+        commands.append(
+            'tryCatch(find.package("rgdal"), error=function(e) install.packages("rgdal", lib="%s"))' % rLibDir)
         commands.append("library(\"rgdal\")");
         for param in self.parameters:
             if isinstance(param, ParameterRaster):
