add proper error when loading R-packages failes

1 files changed, 3 insertions, 3 deletions

diff --git a/lib/neighbors.rb b/lib/neighbors.rb
index c77325a..1136ca7 100644
--- a/lib/neighbors.rb
+++ b/lib/neighbors.rb
@@ -140,8 +140,8 @@ module OpenTox
         else
           #$logger.debug gram_matrix.to_yaml
           @r = RinRuby.new(true,false) # global R instance leads to Socket errors after a large number of requests
-          @r.eval "suppressPackageStartupMessages(library('caret'))" # requires R packages "caret" and "kernlab"
-          @r.eval "suppressPackageStartupMessages(library('doMC'))" # requires R packages "multicore"
+          raise "failed to load R-package caret" unless @r.eval "suppressPackageStartupMessages(library('caret'))" # requires R packages "caret" and "kernlab"
+          raise "failed to load R-package doMC" unless @r.eval "suppressPackageStartupMessages(library('doMC'))" # requires R packages "multicore"
           @r.eval "registerDoMC()" # switch on parallel processing
           @r.eval "set.seed(1)"
           begin
@@ -163,7 +163,7 @@ module OpenTox
               weights=NULL
               if (!(class(y) == 'numeric')) { 
                 y = factor(y)
-                suppressPackageStartupMessages(library('class')) 
+                raise "failed to load R-package class" unless suppressPackageStartupMessages(library('class')) 
                 weights=unlist(as.list(prop.table(table(y))))
                 weights=(weights-1)^2
               }