условный оператор для логического вывода

Question

Я хочу изменить следующий код R на основе логического вывода функции.

is_x_prime = function(x){
  vapply(x, function(z) sum(t / 1:t == t %/% 1:t), integer(1L)) == 2L
}

, чтобы при выводе:

  if(TRUE)
   { cat("The number", x," is prime.")}
   else
   { cat("The number", x," is not prime.")}

я не смог их объединить.

Спасибо