Como ocultar ou desativar a mensagem impressa em função

Suponha que eu tenha uma função como:

ff <- function(x) {
  cat(x, "\n")
  x^2}

E execute:

y <- ff(5)
# 5 
y
# [1] 25

Minha pergunta é como desativar ou ocultar o5 impresso a partir decat(x, "\n") tal como:

y <- ff(5)
y
# [1] 25

questionAnswers(2)

yourAnswerToTheQuestion