[BUGFIX][Processing][Rscript] Write output Table

Add support forwriting  output table to Rscript command.

python/plugins/processing/algs/r/RAlgorithm.py

@@ -278,7 +278,7 @@ def getExportCommands(self):
                         value = value + '.tif'
                     commands.append('writeGDAL(' + out.name + ',"' + value
                                     + '")')
-            if isinstance(out, OutputVector):
+            elif isinstance(out, OutputVector):
                 value = out.value
                 if not value.endswith('shp'):
                     value = value + '.shp'
@@ -287,6 +287,10 @@ def getExportCommands(self):
                 filename = filename[:-4]
                 commands.append('writeOGR(' + out.name + ',"' + value + '","'
                                 + filename + '", driver="ESRI Shapefile")')
+            elif isinstance(out, OutputTable):
+                value = out.value
+                value = value.replace('\\', '/')
+                commands.append('write.csv(' + out.name + ',"' + value + '"')
 
         if self.showPlots:
             commands.append('dev.off()')