Отключение команды cat

Предположим, у меня есть следующая функция:

## Just an example
f = function() { 
  for(i in 1:10000)
      cat(i)
  return(1)
}

Когда я вызываю f () есть способ остановить cat печать на экране (без изменения функции)?

Причина этого вопроса

Мои ученики загружают свои файлы R. Затем я запускаю сценарии и проверяю, чтобы увидеть если они верны. Время от времени ученик уходит в команде cat . Это особенно раздражает, когда он находится в длинном цикле for