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)
}