Fix version number reporting ambiguity

Fixes #68

processing_r/processing/provider.py

@@ -41,6 +41,8 @@ class RAlgorithmProvider(QgsProcessingProvider):
     Processing provider for executing R scripts
     """
 
+    VERSION = '2.2.1'
+
     def __init__(self):
         super().__init__()
         self.algs = []
@@ -50,6 +52,8 @@ def __init__(self):
         self.contextMenuActions = [EditScriptAction(),
                                    DeleteScriptAction()]
 
+        self.r_version = None
+
     def load(self):
         """
         Called when first loading provider
@@ -86,6 +90,7 @@ def load(self):
         ProviderContextMenuActions.registerProviderContextMenuActions(self.contextMenuActions)
         ProcessingConfig.readSettings()
         self.refreshAlgorithms()
+        self.r_version = RUtils.get_r_version()
         return True
 
     def unload(self):
@@ -122,7 +127,10 @@ def versionInfo(self):
         """
         Provider plugin version
         """
-        return "2.2.0"
+        if not self.r_version:
+            return "QGIS R Provider version {}".format(self.VERSION)
+
+        return "QGIS R Provider version {}, {}".format(self.VERSION, self.r_version)
 
     def id(self):
         """

processing_r/processing/utils.py

@@ -358,6 +358,30 @@ def check_r_is_installed() -> Optional[str]:
 
         return html
 
+    @staticmethod
+    def get_r_version() -> Optional[str]:
+        """
+        Returns the current installed R version, or None if R is not found
+        """
+        if RUtils.is_windows() and not RUtils.r_binary_folder():
+            return None
+
+        command = [RUtils.path_to_r_executable(), '--version']
+        try:
+            with subprocess.Popen(command,
+                                  stdout=subprocess.PIPE,
+                                  stdin=subprocess.DEVNULL,
+                                  stderr=subprocess.STDOUT,
+                                  universal_newlines=True,
+                                  **RUtils.get_process_keywords()) as proc:
+                for line in proc.stdout:
+                    if ('R version' in line) or ('R Under development' in line):
+                        return line
+        except FileNotFoundError:
+            pass
+
+        return None
+
     @staticmethod
     def get_required_packages(code):
         """