# Setting things up
<- function(penguin) {
penguin_salute print(glue::glue("Hi, {penguin}!"))
}
<- c("Adelie", "Chinstrap", "Gentoo")
penguins
# Using a for loop
for (penguin in penguins) {
penguin_salute(penguin)
}
Hi, Adelie!
Hi, Chinstrap!
Hi, Gentoo!
# Using purrr
::walk(penguins, penguin_salute) purrr
Hi, Adelie!
Hi, Chinstrap!
Hi, Gentoo!