Playing Cards Utility Functions.
mmcards
Games of chance serve as essential learning tools for understanding probability and statistics. The ‘mmcards’ package, short for Mighty Metrika cards, offers utility functions for handling playing cards, streamlining the development of educational Shiny applications related to games of chance.
Installation
You can install the released version of ‘mmcards’ from CRAN:
install.packages("mmcards")
To install the development version of ‘mmcards’, you can use the devtools package:
# install.packages("devtools")
devtools::install_github("mightymetrika/mmcards")
Who Has the Highest Card: A Basic Example
This section demonstrates a simple game called “Who Has the Highest Card,” which shows you how to use mmcards to create a shuffled standard deck and deal cards to players.
library(mmcards)
# Define the Players
p1 <- NULL
p2 <- NULL
# Create a shuffled standard deck of 52 cards using a random number seed for reproducibility
game_deck <- shuffle_deck(seed = 147)
# Deal a card to each player
game_deck <- deal_card(game_deck)
p1 <- game_deck$dealt_card
game_deck <- deal_card(game_deck)
p2 <- game_deck$dealt_card
# Display the cards and determine the winner
paste("p1 has:", p1$card, "with a value of", p1$value)
#> [1] "p1 has: 5C with a value of 5"
paste("p2 has:", p2$card, "with a value of", p2$value)
#> [1] "p2 has: KH with a value of 13.5"
paste0("The winner is: ", ifelse(p1$value > p2$value, "p1", "p2"))
#> [1] "The winner is: p2"
Alternative Decks
To accommodate various use-cases, shuffle_deck() allows users to create specialized decks like AnonymousDeck, InterleavedDeck, or PairedDeck. You can learn more about these decks in the “alternative-decks” vignette.
Adding Card Images
Use the i_deck() function to add images to your card decks. You’ll need to have the images stored on your computer.
The following example was used to create a Shiny application which flips through a deck of shuffled cards showing the card image and the card value.
In this example, my working directory was set to “C:/Users/Administrator/Desktop/mmcards” and a deck of PNG vector-playing-cards was stored at “C:/Users/Administrator/Desktop/PNG-cards-1.3/PNG-cards-1.3”.
#install.packages("shiny")
library(shiny)
# Initialize a shuffled and image-embedded deck
ic <- i_deck(deck = shuffle_deck(seed = 42),
i_path = paste0(gsub("mmcards", "", getwd()),
"PNG-cards-1.3/PNG-cards-1.3"))
# UI
ui <- fluidPage(
titlePanel("Card Deck Shiny App"),
fluidRow(
column(6,
# Image output
imageOutput("cardImage", height = "auto")
),
column(6,
# Text output
textOutput("cardValue"),
# Deal card button
actionButton("deal_card", "Deal Card")
)
)
)
# Server logic
server <- function(input, output, session) {
# Initialize reactive variable to store current deck
current_deck <- reactiveVal(ic)
# Output for card image
output$cardImage <- renderImage({
# Initialize or get the current deck
deck <- current_deck()
# Return image path
list(src = deck$icard[1],
width = 250,
height = 350)
}, deleteFile = FALSE)
# Output for card value
output$cardValue <- renderText({
# Initialize or get the current deck
deck <- current_deck()
# Return card value
return(deck$value[1])
})
# Deal card logic
observeEvent(input$deal_card, {
# Get the current deck
deck <- current_deck()
# Deal a card
new_deck <- deal_card(deck)
# Update the current deck
current_deck(new_deck$updated_deck)
})
}
# Run the app
shinyApp(ui, server)