capture.output() с invisible() делает то, что вы хотите:

f <- function() {
    cat("Hello")
    return(TRUE)
}
f1 <- function() {
    invisible(capture.output(f()))
}
x <- f1()

Это также работает:

f2 <- function() {
    tmp <- tempfile()
    sink(tmp)
    on.exit(sink())
    on.exit(file.remove(tmp), add = TRUE)
    invisible(force(f())) 
}
x <- f2()

Вот забавный хак, который комментирует все функции cat() в функции. Не уверен, что это дает ошибки или нарушает функцию:

foo <- deparse(f)
f <- eval(parse(text=gsub("cat","#cat",foo)))

f()

[1] 1

Редактировать:

Другой вариант - это, в основном, ответ Джубы с использованием раковины, но вы можете использовать пакет Defaults для изменения поведения по умолчанию cat. Аргумент file в основном сводит его вывод в файл. Итак:

library("Defaults")
setDefaults(cat,file="sink.txt")

f()

Гарантирует, что только выходной сигнал cat, а не print или так погружен. Однако это значительно сокращает время выполнения, так как теперь файл открывается и закрывается каждый раз cat().

Это должно работать?

oldcat = cat
cat = function( ..., file="", sep=" ", fill=F, labels=NULL, append=F ) {}
f()
cat = oldcat

Просто замените cat на пустой function, а затем установите его на завершение