From 11be90a6e2e9921da3b2b6580815fda457a04023 Mon Sep 17 00:00:00 2001
From: Gertjan van den Burg <gertjanvandenburg@gmail.com>
Date: Sun, 30 Aug 2020 21:40:23 +0100
Subject: Properly handle errors

---
 R/predict.gensvm.R | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

(limited to 'R/predict.gensvm.R')

diff --git a/R/predict.gensvm.R b/R/predict.gensvm.R
index 43a0d52..b9a9d7a 100644
--- a/R/predict.gensvm.R
+++ b/R/predict.gensvm.R
@@ -61,9 +61,7 @@ predict.gensvm <- function(object, newdata, add.rownames=FALSE, ...)
 
     # Sanity check
     if (ncol(x.test) != object$n.features) {
-        cat("Error: Number of features of fitted model and testing",
-            "data disagree.\n")
-        return(invisible(NULL))
+        stop("Error: Number of features of fitted model and testing data disagree.\n")
     }
 
     x.train <- eval.parent(object$call$x)
-- 
cgit v1.2.3