“nie wyświetlanie wydruków i on.exit in r” Kod odpowiedzi

nie wyświetlanie wydruków i on.exit in r

quiet <- function(x) { 
  sink(tempfile()) 
  on.exit(sink()) 
  invisible(force(x)) 
}