R/internal.r

###########################################################################
#  Internal functions (not documented)
############################################################################

"valid.one" <- function(x,type)
{
  if(!eval(call(paste("is.",type,sep=""),x))||length(x)!=1) {
    error <- paste("'",deparse(substitute(x)),"' must be a length-one object of type ",type,sep="")
    stop(error)
  } 
}

Try the caribou package in your browser

Any scripts or data that you put into this service are public.

caribou documentation built on May 29, 2017, 2:53 p.m.