Deck R6 Class
Deck
An object of class R6ClassGenerator
of length 24.
# create a new deck x <- Deck$new() x#> Deck: #> Decks: 1 #> Cards: 52 #> Cards dealt: 0 #> Cards left: 52 #> Next card: 2 ♦s# draw a card x$draw(1)#> # A tibble: 1 x 2 #> value suit #> <chr> <chr> #> 1 2 ♦x#> Deck: #> Decks: 1 #> Cards: 52 #> Cards dealt: 1 #> Cards left: 51 #> Next card: 3 ♦s# draw 10 cards x$draw(10)#> # A tibble: 10 x 2 #> value suit #> <chr> <chr> #> 1 3 ♦ #> 2 A ♠ #> 3 3 ♥ #> 4 K ♦ #> 5 10 ♦ #> 6 J ♣ #> 7 J ♠ #> 8 Q ♠ #> 9 9 ♣ #> 10 A ♣# check how many cards are left x$cards_left()#> [1] 41# reset the deck x$shuffle() x#> Deck: #> Decks: 1 #> Cards: 52 #> Cards dealt: 0 #> Cards left: 52 #> Next card: 2 ♠s# create a deck composed of 5 decks x <- Deck$new(decks = 5) x#> Deck: #> Decks: 5 #> Cards: 260 #> Cards dealt: 0 #> Cards left: 260 #> Next card: 9 ♥s