Implemented r-proxy check for installed package.

modules/r-proxy/src/cran.js

@@ -72,9 +72,14 @@ const isCranPackageCached = async (name, version) =>
 
 const installCranPackage = async (name, version, repo) => {
     try {
-        log.info(`Installing ${name}/${version}`)
-        await runScript('install_cran_package.r', [name, version, libPath, repo])
-        log.info(`Installed ${name}/${version}`)
+        try {
+            await runScript('check_cran_package.r', [name, version, libPath])
+            log.info(`Already installed ${name}/${version}`)
+        } catch (error) {
+            log.info(`Installing ${name}/${version}`)
+            await runScript('install_cran_package.r', [name, version, libPath, repo])
+            log.info(`Installed ${name}/${version}`)
+        }
         return true
     } catch (error) {
         log.warn(`Could not install ${name}/${version}`, error)
@@ -196,6 +201,10 @@ const checkCranUpdates = async enqueueUpdateCranPackage => {
         } else {
             // no more properties: process previous entry
             const {Package: name, Version: version, Depends: depends} = entry.get()
+            // if (depends) {
+            //     const foo = depends?.replaceAll(/\s+/g, '').split(',')
+            //     log.fatal(foo)
+            // }
             if (name && version) {
                 if (isVersionSatisfied({name, version, depends, installedVersion})) {
                     enqueueUpdateCranPackage(name, version)

modules/r-proxy/src/script/check_cran_package.r

@@ -0,0 +1,13 @@
+#!/usr/bin/env Rscript
+
+args = commandArgs(trailingOnly = TRUE)
+
+name <- args[1]
+version <- args[2]
+lib <- args[3]
+
+.libPaths(lib)
+
+if ( ! packageVersion(name, lib.loc = lib) == version) {
+    quit(status = 10, save = 'no')
+}