README.md

fivecarddraw

For simulating five-card draw poker scenarios

Installation

You can install the released version of fivecarddraw from Github

remotes::install_github("mkearney/fivecarddraw")

Example

Start a round of five-card draw

## start a game with five players
p <- Poker$new(players = 5)

## shuffle
p$shuffle()
#> [90m  <<shuffle>> <<shuffle>>
#> [39m[90m  <<shuffle>> <<shuffle>>
#> [39m

## deal
p$deal()
#>  ๐Ÿƒœ ๐Ÿƒ„ ๐Ÿƒ— ๐Ÿƒ‘ ๐Ÿƒš
#>  ๐Ÿƒ™ ๐Ÿƒ“ ๐Ÿ‚ธ ๐ŸƒŽ ๐Ÿƒ„
#>  ๐Ÿƒ‘ ๐Ÿƒž ๐Ÿƒ ๐Ÿ‚ธ ๐Ÿ‚น
#>  ๐Ÿ‚ข ๐Ÿƒ— ๐Ÿƒƒ ๐Ÿ‚พ ๐Ÿ‚ฉ
#>  ๐Ÿƒ– ๐Ÿ‚ต ๐Ÿƒ“ ๐Ÿƒ‡ ๐Ÿƒ’

## show cards
p$peek()
#>      p1      p2      p3      p4      p5 
#> "๐Ÿ‚ถ๐Ÿƒƒ๐ŸƒŽ๐Ÿƒ›๐Ÿ‚พ" "๐Ÿ‚ช๐Ÿ‚ก๐Ÿ‚ฃ๐Ÿƒ“๐Ÿ‚ฒ" "๐Ÿ‚น๐Ÿƒž๐Ÿƒ™๐Ÿ‚ซ๐Ÿ‚ป" "๐Ÿƒ๐Ÿ‚ฎ๐Ÿ‚จ๐Ÿ‚ณ๐Ÿƒ‰" "๐Ÿƒ”๐Ÿ‚ฝ๐Ÿ‚ผ๐Ÿ‚ฑ๐Ÿƒ•"

## draw cards
p$draw()
#>  ๐Ÿ‚ ๐Ÿ‚      ๐ŸƒŒ ๐Ÿƒ˜
#>  ๐Ÿ‚       ๐Ÿ‚ฒ
#>  ๐Ÿ‚ ๐Ÿ‚ ๐Ÿ‚     ๐Ÿ‚จ ๐Ÿ‚น ๐Ÿƒ“
#>  ๐Ÿ‚ ๐Ÿ‚ ๐Ÿ‚     ๐Ÿƒ‡ ๐ŸƒŒ ๐Ÿƒœ
#>  ๐Ÿ‚ ๐Ÿ‚ ๐Ÿ‚     ๐Ÿƒ ๐Ÿƒ ๐Ÿƒ‚

## show hands
p$show()
#> $p5
#> [1] "4s and 12s"
#> 
#> $p4
#> [1] "9s and 15s"
#> 
#> $p3
#> [1] "flush_double_draw"
#> 
#> $p2
#> [1] "3s"
#> 
#> $p1
#> [1] "6s and 14s"

NOTE:

This package was inspired by a question about five-card draw from my father-in-law. It isnโ€™t scientific and itโ€™s a work in progress.



mkearney/fivecarddraw documentation built on Nov. 4, 2019, 6:59 p.m.