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