cards <-
structure(list(value = structure(c(2L, 3L, 4L, 5L, 6L, 7L, 8L, 
9L, 1L, 11L, 13L, 12L, 10L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L, 1L, 
11L, 13L, 12L, 10L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L, 1L, 11L, 
13L, 12L, 10L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L, 1L, 11L, 13L, 
12L, 10L), .Label = c("10", "2", "3", "4", "5", "6", "7", "8", 
"9", "A", "J", "K", "Q"), class = "factor"), color = structure(c(2L, 
2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 
2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L), .Label = c("black", "red"), class = "factor"), suit = structure(c(3L, 
3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 2L, 2L, 2L, 2L, 
2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 
4L, 4L, 4L, 4L, 4L, 4L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L), .Label = c("Club", "Diamond", "Heart", "Spade"), class = "factor"), 
    face = c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, 
    FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, FALSE, FALSE, FALSE, 
    FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, TRUE, 
    TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, 
    FALSE, TRUE, TRUE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, 
    FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, TRUE, TRUE
    )), row.names = c(NA, -52L), class = c("tbl_df", "tbl", "data.frame"
))