R/exceptions.R

In s-u/rJava: Low-Level R to Java Interface

## functions for some basic exception handling

# FIXME: should all these actually be deprecated or defunct

## poll for an exception
.jgetEx <- function(clear=FALSE) {
  exo <- .Call(RpollException)
  if (is.null(exo)) return(NULL)
  x <- new("jobjRef", jobj=exo, jclass="java/lang/Throwable")
  if (clear) .jclear()
  x
}

## explicitly clear any pending exceptions
.jclear <- function() {
  .C(RclearException)
  invisible(NULL)
}

## throw an exception
.jthrow <- function(exception, message=NULL) {
  if (is.character(exception))
    exception <- .jnew(exception, as.character(message))
  if (is(exception, "jobjRef"))
    .Call(RthrowException, exception)
  else
    stop("Invalid exception.")
}


"$.Throwable" <- function( x, name ){
	if( name %in% names(c(x)) ){
		c(x)[[ name ]]
	} else{
		._jobjRef_dollar( x[["jobj"]], name )
	}
}

"$<-.Throwable" <- function( x, name, value ){
	if( name %in% names(x) ){
		x[[ name ]] <- value
	} else{
		._jobjRef_dollargets( x[["jobj"]], name, value )
	}
	x
	
}