R中的print()命令是否可以静默?

您可以使用R的隐藏函数性质,例如通过定义函数

deprintize<-function(f){
 return(function(...) {capture.output(w<-f(...));return(w);});
}

将“打印”功能转换为“静默”功能:

noisyf<-function(x){
 print("BOO!");
 sin(x);
}

noisyf(7)
deprintize(noisyf)(7)
deprintize(noisyf)->silentf;silentf(7)

?capture.output

print.and.return <- function(..., verbose=TRUE) {
  if (verbose) 
    print("foo")
  return("bar")
}


> print.and.return()
[1] "foo"
[1] "bar"
> print.and.return(verbose=FALSE)
[1] "bar"
> 

我同意哈德利和mbq的建议 capture.output message 而不是 print . 这样就可以用 suppressMessages .

print.and.return2 <- function() {
  message("foo")
  return("bar")
}

# Compare:
print.and.return2()
suppressMessages(print.and.return2())

它和 return()

invisible(variable)

因此,以@ayman为例:

print.and.return2 <- function() {
  message("foo")
  invisible("bar")
}