Это должно работать?
oldcat = cat cat = function( ..., file="", sep=" ", fill=F, labels=NULL, append=F ) {} f() cat = oldcat
Просто замените cat на пустой function, а затем установите его на завершение
cat
function