Load package into R:

library(christmas)

Use the secret_santa() function to allocate gift recipients by passing in a vector of people's names:

secret_santa(c("John", "Paul", "George", "Ringo"))

returns:

  gift_giver gift_recipient
1       Paul          Ringo
2     George           John
3       John           Paul
4      Ringo         George

Create a snowman Christmas card, and save it to a file called card.png:

snowman_card("card.png", "From Nicola")

which looks like: