Desativando o comando cat

Suponha que tenho a seguinte função:

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

Quando eu ligof() existe uma maneira de pararcatmpressão na tela (sem alterar a função de qualquer maneira

Razão por trás desta pergunta

Meus alunos enviam seus arquivos R. Em seguida, executo os scripts e verifico se eles estão corretos. De vez em quando, um aluno sai nocat comando. Isso é especialmente irritante quando o loop for longo

questionAnswers(4)

yourAnswerToTheQuestion