shuffle: Everyday I'm shuffling
In leffjr/jackr: Basic Functions

Description Usage Arguments Value Examples

Everyday I'm shuffling

1	shuffle(deck)

cards

shuffles the deck to prevent same outcome each time

site <- "https://gist.githubusercontent.com/garrettgman/9629323/raw/ee5dfc039fd581cb467cc69c226ea2524913c3d8/deck.csv"
deck <- readr::read_csv(site)
write.csv(deck, file = "cards.csv", row.names = FALSE)
deck[1, c("face", "suit", "value")]
deal <- function(deck) {
deck[1,1]
}