From 1995049715ec55897047a367fd25e3409eb874ad Mon Sep 17 00:00:00 2001 From: Gertjan van den Burg Date: Tue, 27 Mar 2018 20:13:13 +0100 Subject: restore original option instead of null --- R/gensvm.refit.R | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'R/gensvm.refit.R') diff --git a/R/gensvm.refit.R b/R/gensvm.refit.R index fab7579..c0bbf20 100644 --- a/R/gensvm.refit.R +++ b/R/gensvm.refit.R @@ -71,12 +71,13 @@ gensvm.refit <- function(fit, X, y, p=NULL, lambda=NULL, kappa=NULL, # this call to gensvm. If we don't set the error handler, R will # unnecessarily drop to a browser() session. We reset the error handler # after the call to gensvm(). + errfunc <- getOption('error') options(error=function() {}) newfit <- gensvm(X, y, p=p, lambda=lambda, kappa=kappa, epsilon=epsilon, weights=weights, kernel=kernel, gamma=gamma, coef=coef, degree=degree, kernel.eigen.cutoff=kernel.eigen.cutoff, verbose=verbose, max.iter=max.iter, seed.V=coef(fit)) - options(error=NULL) + options(error=errfunc) return(newfit) } -- cgit v1.2.3