Rでprintされる内容を非表示にする

code:R

quiet <- function(x) {

sink(tempfile())

on.exit(sink())

invisible(force(x))

}

y <- quiet(ff(5))