Не понимая для вывода цикла

Question

При использовании переменной 'a' функция интерпретации выводит число 20, как я и ожидал.

linkedin <- c(16, 9, 13, 5, 2, 17, 14)

interpret <- function(num_views) {
  if (num_views > 15) {
    print("You're popular!")
    return(num_views)
  } else {
    print("Try to be more visible!")
    return(0)
  }
}

a <- 20

interpret(a)
#[1] "You're popular!"
#[1] 20

Почему же цикл for не выводит числа выше 15 и 0?

for (v in linkedin) {
     interpret(v)
}

#[1] "You're popular!"
#[1] "Try to be more visible!"
#[1] "Try to be more visible!"
#[1] "Try to be more visible!"
#[1] "Try to be more visible!"
#[1] "You're popular!"
#[1] "Try to be more visible!"

Я запускаю это на веб-сайте datacamp вместо программного обеспечения R на случай, если что-то изменится.

Answer 1

linkedin <- c(16, 9, 13, 5, 2, 17, 14)

interpret <- function(num_views) {
    if (num_views > 15) {
        print("You're popular!")
        print(num_views)
    } else {
        print("Try to be more visible!")
        print(0)
    }
}

a <- 20

interpret(a)

for (v in linkedin) {
    interpret(v)
}