Creating A Deck Of Cards In R Without Using While And Double For Loop

Question

I am creating a blackjack simulator in R. The code below succeeds in creating the deck(s) of cards that I want. (For those that play, I will deal with the value of an Ace later). My question is, is there a better way to create the deck that doesn't involve a while loop plus a double for loop? I have more of an issue with the double for loop. The while loop is likely unavoidable since the number of decks created is variable. I also initialize an empty data frame which I know isn't the best practice, however, the data set is so small in this case that it won't effect performance. And lastly, is there an equivalent of i++ in R? I have been programming in java as well and have gotten used to it. Thanks. ``` createDeck <- function(totalNumOfDecks = 2) { suits <- c("Diamonds", "Clubs", "Hearts", "Spades") cards <- c("Ace", "Deuce", "Three", "Four","Five", "Six", "Seven", "Eight", "Nine", "Ten", "Jack", "Queen", "King") values <- c(0,2,3,4,5, 6,7,8,9,10, 10,10,10) deck <- data.frame(Suit=cha…

Accepted Answer

The `expand.grid` function should be helpful:

```
# Define suits, cards, values
suits <- c("Diamonds", "Clubs", "Hearts", "Spades")
cards <- c("Ace", "Deuce", "Three", "Four","Five", "Six", "Seven", "Eight", "Nine", "Ten", "Jack", "Queen", "King")
values <- c(0, 2:9, rep(10, 4))
totalNumOfDecks <- 2

# Build deck, replicated proper number of times
deck <- expand.grid(cards=cards, suits=suits)
deck$value <- values
deck <- deck[rep(seq(nrow(deck)), totalNumOfDecks),]
```

The call to `expand.grid` computes all pairing of cards and suits. The `value` variable is created by recycling the `value` vector for each suit. Finally, `rep(seq(nrow(deck)))` repeats rows 1-52 the proper number of times to get multiple copies of your deck.

Creating A Deck Of Cards In R Without Using While And Double For Loop

Solution

Problem

Related problems