Using R studio

I created a loop to print all even numbers from 1-30. Here is my code:

is.even <- function(x) ... I created a loop to print all even numbers from 1-30. Here is my code:

is.even <- function(x) x%%2 == 0

for (i in 1:30){

if(is.even(i)){print(i)} }

How do I create this same loop using the apply function wth a sec(1,30) for my data?