x <- pi
check.1.real(x)
check.1.integer(pi, fatal=FALSE, context="In your dreams,")
check.1.string(x, fatal=FALSE)
check.1.integer(x, fatal=FALSE, warn=FALSE)
check.1.logical(pi, fatal=FALSE, warn=FALSE)
Run the code above in your browser using DataLab