Extract Numeric Value from a Card Vector

Returns the Blackjack numeric value of each card.

Usage

card_value(x)

Arguments

x

A card vector created using card().

Value

A numeric vector: 2–10 for number cards, 10 for face cards, 11 for Aces.

Examples

cards <- card(c("A", "K", "5"), c("♠", "♥", "♦"))
card_value(cards)  # 11 10 5
#> [1] 11 10  5