With a return value

contain_number <- function(numbers, number) {
  for (current_number in numbers) {
    if (current_number == number) {
      return(TRUE)
    }
  }
  # No return(): the last value is the result
  FALSE
}

data <- c(1, 2, 3)
is_contain2 <- contain_number(data, 2)
# is_contain2 = TRUE

is_contain4 <- contain_number(data, 4)
# is_contain4 = FALSE

cat("is_contain2 =", is_contain2, "\n")
cat("is_contain4 =", is_contain4, "\n")