invisible(x=NULL)
function(...) {
amp;...
plot(x,y)
invisible(list(x,y))
} # return a value invisibly
checking <- function(fun,...) {
        .Auto.print <- TRUE
        val <- fun(...) # may change .Auto.print
        if(.Auto.print) val
        else invisible(val)
}