# NOT RUN {
f_list(1)
f_list(1:2)
f_list(1:3)
f_list(1:5)
x <- c("parents", "Lady Gaga", "Humpty Dumpty")
## Three things you love
sprintf('I love my %s.', f_list(x))
## Your parents are lady Gaga & Humpty Dumpty?????
sprintf('I love my %s.', f_list(x, oxford = FALSE))
sprintf('I love my %s.', f_list(x, and = '&'))
sprintf('I love my %s.', f_list_amp(x))
# }
Run the code above in your browser using DataLab