tests/testthat/_snaps/unicode.md
In trevorld/ppgames: Piecepack Games
text diagrams
Code
dft <- tibble(piece_side = "board_back", x = seq(1.5, 5.5, 2), y = 1.5, rank = 2,
cfg = "checkers1")
dfb <- tibble(piece_side = "bit_back", x = 1:6, y = 1, suit = 1:6, cfg = "checkers1")
dfd <- tibble(piece_side = "die_face", x = 1:6, y = 2, suit = 1:6, rank = 1:6,
cfg = "dice", angle = c(45, rep(0, 5)))
df <- dplyr::bind_rows(dft, dfb, dfd)
cat_piece(df)
Output
┌─┰─┬─┰─┬─┰─┐
│·⃟┃⠌⃞│⋰⃞┃∷⃞│⁙⃞┃⠿⃞│
┝━╋━┿━╋━┿━╋━┥
│⛂┃⛂│⛂┃⛂│⛂┃⛀│
└─┸─┴─┸─┴─┸─┘
Code
df <- dplyr::mutate(df, cfg = gsub("checkers1", "checkers2", cfg), x = 2 * x,
y = 2 * y)
cat_piece(df)
Output
┌───┰───┬───┰───┬───┰───┐
│ ┃ │ ┃ │ ┃ │
│ ·⃟ ┃ ⠌⃞ │ ⋰⃞ ┃ ∷⃞ │ ⁙⃞ ┃ ⠿⃞ │
│ ┃ │ ┃ │ ┃ │
┝━━━╋━━━┿━━━╋━━━┿━━━╋━━━┥
│ ┃ │ ┃ │ ┃ │
│ ⛂ ┃ ⛂ │ ⛂ ┃ ⛂ │ ⛂ ┃ ⛀ │
│ ┃ │ ┃ │ ┃ │
└───┸───┴───┸───┴───┸───┘
Code
df <- tibble(piece_side = "die_face", x = 1:6, y = 1, rank = 1:6, suit = 1:6,
cfg = "dice_fudge")
cat_piece(df)
Output
−⃞ ⃞ +⃞ +⃞ ⃞ −⃞
Code
df$angle <- 90
cat_piece(df)
Output
|⃞ ⃞ +⃞ +⃞ ⃞ |⃞
Code
dfb <- tibble(piece_side = "board_face", x = c(2.5, 6.5), y = 2, rank = 4, cfg = "checkers1")
dfpt <- tibble(piece_side = "pyramid_top", x = 1:8, y = 4, rank = rep(1:3,
length.out = 8), suit = c(1:6, 1:2), angle = seq(0, by = 45, length.out = 8),
cfg = "icehouse_pieces")
dfpf <- tibble(piece_side = rep(c("pyramid_face", "pyramid_left",
"pyramid_right", "pyramid_back"), 6), x = rep(1:8, 3), y = rep(1:3, each = 8),
rank = rep(1:3, each = 8), suit = rep(1:6, 4), angle = rep(seq(0, by = 45,
length.out = 8), 3), cfg = "icehouse_pieces")
df <- dplyr::bind_rows(dfb, dfpt, dfpf)
cat_piece(df)
Output
┌■̣┰◆̤┰■⃨┰◆̣┬■̤┰◇⃨┰■̣┰◆̤┐
│ ┃ ┃ ┃ │ ┃ ┃ ┃ │
┝▲⃨╋◸⃨╋◀⃨╋◣⃨┿▼⃨╋◢⃨╋▶⃨╋◹⃨┥
│ ┃ ┃ ┃ │ ┃ ┃ ┃ │
┝▲̤╋◤̤╋◀̤╋◺̤┿▼̤╋◢̤╋▶̤╋◥̤┥
│ ┃ ┃ ┃ │ ┃ ┃ ┃ │
┝▲̣╋◤̣╋◀̣╋◣̣┿▼̣╋◿̣╋▶̣╋◥̣┥
│ ┃ ┃ ┃ │ ┃ ┃ ┃ │
└─┸─┸─┸─┴─┸─┸─┸─┘
Code
dfpt <- tibble(piece_side = "tile_back", x = c(1.5, 3.5, 1.5, 3.5), y = c(1.5,
1.5, 3.5, 3.5))
dfbt <- tibble(piece_side = rep(c("tile_face", "tile_back"), 2), x = 1:4, y = 1,
suit = 1:4, rank = 1:4, cfg = "subpack")
dfc <- tibble(piece_side = rep(c("coin_face", "coin_back"), 2), x = 1:4, y = 2,
suit = 1:4, rank = 1:4, cfg = "subpack")
dfd <- tibble(piece_side = "die_face", x = 1:4, y = 3, suit = 1:4, rank = 1:4,
cfg = "subpack")
dfp <- tibble(piece_side = rep(c("pawn_face", "pawn_back"), 2), x = 1:4, y = 4,
suit = 1:4, rank = 1:4, cfg = "subpack")
df <- dplyr::bind_rows(dfpt, dfbt, dfc, dfd, dfp)
cat_piece(df)
Output
┌─┰─┬─┰─┐
│☀⃟┃☾⃟│♛⃟┃⸸⃟│
┝━╋━┿━╋━┥
│n⃞┃a⃞│2⃞┃3⃞│
├─╂─┼─╂─┤
│n⃝┃☾⃝│2⃝┃⸸⃝│
├─╀┰┼─╀┰┤
│n┝╋┥2┝╋┥
└─┴┸┴─┴┸┘
Code
dft <- tibble(piece_side = "tile_face", x = c(1.5, 3.5), y = 1.5, suit = 1,
rank = 4, angle = c(90, 270))
dfpb <- tibble(piece_side = "pawn_back", x = 1:2, y = 1, suit = 2:1, angle = c(
0, 45))
dfpf <- tibble(piece_side = "pawn_face", x = 1, y = 2, suit = 1, angle = 45)
dfbf <- tibble(piece_side = "bit_face", x = 3, y = 1, suit = 3, cfg = "checkers1")
df <- dplyr::bind_rows(dft, dfpb, dfpf, dfbf)
cat_piece(df)
Output
┌───┬───┐
│☀⃞ │ ☀│
│ m │ ω │
│☾⃟ ☀⃞│⛂ │
└───┴───┘
Code
dff <- tibble(piece_side = "tile_face", x = rep(1:6, 2), y = rep(c(1, 3), each = 6),
suit = rep(1:6, 2), rank = rep(2:7, 2), angle = rep(c(0, 180), each = 6), cfg = rep(
paste0("dominoes_", c("black", "blue", "green", "red", "white", "yellow")), 2))
dfb <- tibble(piece_side = "tile_back", x = 1:6, y = 5, suit = 1:6, rank = 2:7,
angle = rep(c(0, 180), each = 3), cfg = paste0("dominoes_", c("black", "blue",
"green", "red", "white", "yellow")))
df <- dplyr::bind_rows(dff, dfb)
cat_piece(df)
Output
┌─┬─┬─┬─┬─┬─┐
│ │ │ │ │ │ │
│ │ │ │ │ │ │
│ │ │ │ │ │ │
├─┼─┼─┼─┼─┼─┤
│ │·│⠌│⋰│∷│⁙│
│━│━│━│━│━│━│
│·│⠌│⋰│∷│⁙│⠿│
├─┼─┼─┼─┼─┼─┤
│·│⠌│⋰│∷│⁙│⠿│
│━│━│━│━│━│━│
│ │·│⠌│⋰│∷│⁙│
└─┴─┴─┴─┴─┴─┘
Code
dff <- tibble(piece_side = "tile_face", x = rep(c(1, 3), each = 6), y = rep(1:6,
2), suit = rep(1:6, 2), rank = rep(2:7, 2), angle = rep(c(90, 270), each = 6),
cfg = rep(paste0("dominoes_", c("black", "blue", "green", "red", "white",
"yellow")), 2))
dfb <- tibble(piece_side = "tile_back", x = 5, y = 1:6, suit = 1:6, rank = 2:7,
angle = rep(c(90, 270), each = 3), cfg = paste0("dominoes_", c("black", "blue",
"green", "red", "white", "yellow")))
df <- dplyr::bind_rows(dff, dfb)
cat_piece(df)
Output
┌───┬───┬───┐
│…⃛┃⁙│⁙┃…⃛│ │
├───┼───┼───┤
│⁙┃∷│∷┃⁙│ │
├───┼───┼───┤
│∷┃⋱│⋱┃∷│ │
├───┼───┼───┤
│⋱┃⠡│⠡┃⋱│ │
├───┼───┼───┤
│⠡┃·│·┃⠡│ │
├───┼───┼───┤
│·┃ │ ┃·│ │
└───┴───┴───┘
Code
dft <- tibble(piece_side = "tile_back", x = rep(seq(1, 9, 2), 7), y = rep(seq(1,
13, 2), each = 5))
for (angle in seq(0, 315, 45)) {
dfm <- tibble(piece_side = "matchstick_face", x = 1:6, y = seq(1, 11, 2),
suit = 1, rank = 1:6, angle = angle)
df <- dplyr::bind_rows(dft, dfm)
cat_piece(df)
}
Output
┌─┰─┬─┰─┬─┰─┬─┰─┬─┰─┐
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
┝━╋━┿━╋━┿━╋━┿━╋━┿━╋━┥
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
├─╂─┼─╂─┼─╂─┃─╂─┼─╂─┤
│ ┃ │ ┃ │ ┃ ┃ ┃ │ ┃ │
┝━╋━┿━╋━┿━╋━┃━╋━┿━╋━┥
│ ┃ │ ┃ │ ┃ ┃ ┃ │ ┃ │
├─╂─┼─╂─┼─╂─┃─╂─┼─╂─┤
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
┝━╋━┿━╋━┿━┃━┿━╋━┿━╋━┥
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
├─╂─┼─╂─┼─╂─┼─╂─┼─╂─┤
│ ┃ │ ┃ ┃ ┃ │ ┃ │ ┃ │
┝━╋━┿━╋━┃━╋━┿━╋━┿━╋━┥
│ ┃ │ ┃ ┃ ┃ │ ┃ │ ┃ │
├─╂─┼─╂─┼─╂─┼─╂─┼─╂─┤
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
┝━╋━┿━┃━┿━╋━┿━╋━┿━╋━┥
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
├─╂─┼─╂─┼─╂─┼─╂─┼─╂─┤
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
┝━╋━┃━╋━┿━╋━┿━╋━┿━╋━┥
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
├─╂─┼─╂─┼─╂─┼─╂─┼─╂─┤
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
┝━■━┿━╋━┿━╋━┿━╋━┿━╋━┥
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
└─┸─┴─┸─┴─┸─┴─┸─┴─┸─┘
┌─┰─┬─┰─┬─┰─┬─┰─┬─┰─┐
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
┝━╋━┿━╋━┿━╋━┿━╋━┿━╋━┥
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
├─╂─┼─╂─┼─╂─┼─╂─┼─╂─┤
│ ┃ │ ┃ │ ┃╲│ ┃ │ ┃ │
┝━╋━┿━╋━┿━╋━╲━╋━┿━╋━┥
│ ┃ │ ┃ │ ┃ │╲┃ │ ┃ │
├─╂─┼─╂─┼─╂─┼─╂─┼─╂─┤
│ ┃ │ ┃ │╲┃ │ ┃ │ ┃ │
┝━╋━┿━╋━┿━╲━┿━╋━┿━╋━┥
│ ┃ │ ┃ │ ┃╲│ ┃ │ ┃ │
├─╂─┼─╂─┼─╂─┼─╂─┼─╂─┤
│ ┃ │ ┃╲│ ┃ │ ┃ │ ┃ │
┝━╋━┿━╋━╲━╋━┿━╋━┿━╋━┥
│ ┃ │ ┃ │╲┃ │ ┃ │ ┃ │
├─╂─┼─╂─┼─╂─┼─╂─┼─╂─┤
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
┝━╋━┿━╲━┿━╋━┿━╋━┿━╋━┥
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
├─╂─┼─╂─┼─╂─┼─╂─┼─╂─┤
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
┝━╋━╲━╋━┿━╋━┿━╋━┿━╋━┥
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
├─╂─┼─╂─┼─╂─┼─╂─┼─╂─┤
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
┝━◆━┿━╋━┿━╋━┿━╋━┿━╋━┥
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
└─┸─┴─┸─┴─┸─┴─┸─┴─┸─┘
┌─┰─┬─┰─┬─┰─┬─┰─┬─┰─┐
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
┝━╋━┿━╋━┿━╋━┿━╋━┿━╋━┥
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
├─╂─┼─╂─┼─╂─┼─╂─┼─╂─┤
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
┝━╋━┿━╋━┿━━━━━━━┿━╋━┥
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
├─╂─┼─╂─┼─╂─┼─╂─┼─╂─┤
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
┝━╋━┿━╋━┿━━━┿━╋━┿━╋━┥
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
├─╂─┼─╂─┼─╂─┼─╂─┼─╂─┤
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
┝━╋━┿━╋━━━╋━┿━╋━┿━╋━┥
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
├─╂─┼─╂─┼─╂─┼─╂─┼─╂─┤
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
┝━╋━┿━━━┿━╋━┿━╋━┿━╋━┥
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
├─╂─┼─╂─┼─╂─┼─╂─┼─╂─┤
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
┝━╋━━━╋━┿━╋━┿━╋━┿━╋━┥
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
├─╂─┼─╂─┼─╂─┼─╂─┼─╂─┤
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
┝━■━┿━╋━┿━╋━┿━╋━┿━╋━┥
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
└─┸─┴─┸─┴─┸─┴─┸─┴─┸─┘
┌─┰─┬─┰─┬─┰─┬─┰─┬─┰─┐
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
┝━╋━┿━╋━┿━╋━┿━╋━┿━╋━┥
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
├─╂─┼─╂─┼─╂─┼─╂─┼─╂─┤
│ ┃ │ ┃ │ ┃ │╱┃ │ ┃ │
┝━╋━┿━╋━┿━╋━╱━╋━┿━╋━┥
│ ┃ │ ┃ │ ┃╱│ ┃ │ ┃ │
├─╂─┼─╂─┼─╂─┼─╂─┼─╂─┤
│ ┃ │ ┃ │ ┃╱│ ┃ │ ┃ │
┝━╋━┿━╋━┿━╱━┿━╋━┿━╋━┥
│ ┃ │ ┃ │╱┃ │ ┃ │ ┃ │
├─╂─┼─╂─┼─╂─┼─╂─┼─╂─┤
│ ┃ │ ┃ │╱┃ │ ┃ │ ┃ │
┝━╋━┿━╋━╱━╋━┿━╋━┿━╋━┥
│ ┃ │ ┃╱│ ┃ │ ┃ │ ┃ │
├─╂─┼─╂─┼─╂─┼─╂─┼─╂─┤
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
┝━╋━┿━╱━┿━╋━┿━╋━┿━╋━┥
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
├─╂─┼─╂─┼─╂─┼─╂─┼─╂─┤
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
┝━╋━╱━╋━┿━╋━┿━╋━┿━╋━┥
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
├─╂─┼─╂─┼─╂─┼─╂─┼─╂─┤
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
┝━◆━┿━╋━┿━╋━┿━╋━┿━╋━┥
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
└─┸─┴─┸─┴─┸─┴─┸─┴─┸─┘
┌─┰─┬─┰─┬─┰─┬─┰─┬─┰─┐
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
┝━╋━┿━╋━┿━╋━┿━╋━┿━╋━┥
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
├─╂─┼─╂─┼─╂─┃─╂─┼─╂─┤
│ ┃ │ ┃ │ ┃ ┃ ┃ │ ┃ │
┝━╋━┿━╋━┿━╋━┃━╋━┿━╋━┥
│ ┃ │ ┃ │ ┃ ┃ ┃ │ ┃ │
├─╂─┼─╂─┼─╂─┃─╂─┼─╂─┤
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
┝━╋━┿━╋━┿━┃━┿━╋━┿━╋━┥
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
├─╂─┼─╂─┼─╂─┼─╂─┼─╂─┤
│ ┃ │ ┃ ┃ ┃ │ ┃ │ ┃ │
┝━╋━┿━╋━┃━╋━┿━╋━┿━╋━┥
│ ┃ │ ┃ ┃ ┃ │ ┃ │ ┃ │
├─╂─┼─╂─┼─╂─┼─╂─┼─╂─┤
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
┝━╋━┿━┃━┿━╋━┿━╋━┿━╋━┥
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
├─╂─┼─╂─┼─╂─┼─╂─┼─╂─┤
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
┝━╋━┃━╋━┿━╋━┿━╋━┿━╋━┥
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
├─╂─┼─╂─┼─╂─┼─╂─┼─╂─┤
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
┝━■━┿━╋━┿━╋━┿━╋━┿━╋━┥
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
└─┸─┴─┸─┴─┸─┴─┸─┴─┸─┘
┌─┰─┬─┰─┬─┰─┬─┰─┬─┰─┐
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
┝━╋━┿━╋━┿━╋━┿━╋━┿━╋━┥
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
├─╂─┼─╂─┼─╂─┼─╂─┼─╂─┤
│ ┃ │ ┃ │ ┃╲│ ┃ │ ┃ │
┝━╋━┿━╋━┿━╋━╲━╋━┿━╋━┥
│ ┃ │ ┃ │ ┃ │╲┃ │ ┃ │
├─╂─┼─╂─┼─╂─┼─╂─┼─╂─┤
│ ┃ │ ┃ │╲┃ │ ┃ │ ┃ │
┝━╋━┿━╋━┿━╲━┿━╋━┿━╋━┥
│ ┃ │ ┃ │ ┃╲│ ┃ │ ┃ │
├─╂─┼─╂─┼─╂─┼─╂─┼─╂─┤
│ ┃ │ ┃╲│ ┃ │ ┃ │ ┃ │
┝━╋━┿━╋━╲━╋━┿━╋━┿━╋━┥
│ ┃ │ ┃ │╲┃ │ ┃ │ ┃ │
├─╂─┼─╂─┼─╂─┼─╂─┼─╂─┤
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
┝━╋━┿━╲━┿━╋━┿━╋━┿━╋━┥
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
├─╂─┼─╂─┼─╂─┼─╂─┼─╂─┤
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
┝━╋━╲━╋━┿━╋━┿━╋━┿━╋━┥
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
├─╂─┼─╂─┼─╂─┼─╂─┼─╂─┤
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
┝━◆━┿━╋━┿━╋━┿━╋━┿━╋━┥
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
└─┸─┴─┸─┴─┸─┴─┸─┴─┸─┘
┌─┰─┬─┰─┬─┰─┬─┰─┬─┰─┐
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
┝━╋━┿━╋━┿━╋━┿━╋━┿━╋━┥
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
├─╂─┼─╂─┼─╂─┼─╂─┼─╂─┤
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
┝━╋━┿━╋━┿━━━━━━━┿━╋━┥
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
├─╂─┼─╂─┼─╂─┼─╂─┼─╂─┤
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
┝━╋━┿━╋━┿━━━┿━╋━┿━╋━┥
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
├─╂─┼─╂─┼─╂─┼─╂─┼─╂─┤
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
┝━╋━┿━╋━━━╋━┿━╋━┿━╋━┥
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
├─╂─┼─╂─┼─╂─┼─╂─┼─╂─┤
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
┝━╋━┿━━━┿━╋━┿━╋━┿━╋━┥
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
├─╂─┼─╂─┼─╂─┼─╂─┼─╂─┤
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
┝━╋━━━╋━┿━╋━┿━╋━┿━╋━┥
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
├─╂─┼─╂─┼─╂─┼─╂─┼─╂─┤
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
┝━■━┿━╋━┿━╋━┿━╋━┿━╋━┥
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
└─┸─┴─┸─┴─┸─┴─┸─┴─┸─┘
┌─┰─┬─┰─┬─┰─┬─┰─┬─┰─┐
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
┝━╋━┿━╋━┿━╋━┿━╋━┿━╋━┥
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
├─╂─┼─╂─┼─╂─┼─╂─┼─╂─┤
│ ┃ │ ┃ │ ┃ │╱┃ │ ┃ │
┝━╋━┿━╋━┿━╋━╱━╋━┿━╋━┥
│ ┃ │ ┃ │ ┃╱│ ┃ │ ┃ │
├─╂─┼─╂─┼─╂─┼─╂─┼─╂─┤
│ ┃ │ ┃ │ ┃╱│ ┃ │ ┃ │
┝━╋━┿━╋━┿━╱━┿━╋━┿━╋━┥
│ ┃ │ ┃ │╱┃ │ ┃ │ ┃ │
├─╂─┼─╂─┼─╂─┼─╂─┼─╂─┤
│ ┃ │ ┃ │╱┃ │ ┃ │ ┃ │
┝━╋━┿━╋━╱━╋━┿━╋━┿━╋━┥
│ ┃ │ ┃╱│ ┃ │ ┃ │ ┃ │
├─╂─┼─╂─┼─╂─┼─╂─┼─╂─┤
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
┝━╋━┿━╱━┿━╋━┿━╋━┿━╋━┥
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
├─╂─┼─╂─┼─╂─┼─╂─┼─╂─┤
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
┝━╋━╱━╋━┿━╋━┿━╋━┿━╋━┥
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
├─╂─┼─╂─┼─╂─┼─╂─┼─╂─┤
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
┝━◆━┿━╋━┿━╋━┿━╋━┿━╋━┥
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
└─┸─┴─┸─┴─┸─┴─┸─┴─┸─┘
Code
dfm <- tibble(piece_side = "matchstick_back", x = 1:4, y = seq(1, 7, 2), suit = 1,
rank = 5, angle = c(60, 120, 240, 300))
df <- dplyr::bind_rows(dft, dfm)
cat_piece(df)
Output
┌─┰─┬─┰─┬─┰─┬─┰─┬─┰─┐
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
┝━╋━┿━╋━┿━╋━┿━╋━┿━╋━┥
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
├─╂─┼─╂─┼─╂─┼─╂─┼─╂─┤
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
┝━╋━┿━╋━┿━╋━┿━╋━┿━╋━┥
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
├─╂─┼─╂─┼─╂─┼─╂─┼─╂─┤
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
┝━╋━┿━╋━┿━╋━┿━╋━┿━╋━┥
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
├─╂─┼─╂─┼─╂─┼─╂─┼─╂─┤
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
┝━╋━┿━╋━╱━╋━┿━╋━┿━╋━┥
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
├─╂─┼─╂─┼─╂─┼─╂─┼─╂─┤
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
┝━╋━┿━╲━┿━╋━┿━╋━┿━╋━┥
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
├─╂─┼─╂─┼─╂─┼─╂─┼─╂─┤
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
┝━╋━╱━╋━┿━╋━┿━╋━┿━╋━┥
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
├─╂─┼─╂─┼─╂─┼─╂─┼─╂─┤
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
┝━╲━┿━╋━┿━╋━┿━╋━┿━╋━┥
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
└─┸─┴─┸─┴─┸─┴─┸─┴─┸─┘
Code
dfb <- tibble(piece_side = "board_face", x = 4.5, y = 4.5, suit = 2, cfg = "chess1")
dfp <- tibble(piece_side = "bit_face", x = 1:6, y = 1, rank = 1:6, suit = 1:6,
cfg = "chess1")
df <- dplyr::bind_rows(dfb, dfp)
cat_piece(df)
Output
┌─┰─┰─┰─┰─┰─┰─┰─┐
│ ┃ ┃ ┃ ┃ ┃ ┃ ┃ │
┝━╋━╋━╋━╋━╋━╋━╋━┥
│ ┃ ┃ ┃ ┃ ┃ ┃ ┃ │
┝━╋━╋━╋━╋━╋━╋━╋━┥
│ ┃ ┃ ┃ ┃ ┃ ┃ ┃ │
┝━╋━╋━╋━╋━╋━╋━╋━┥
│ ┃ ┃ ┃ ┃ ┃ ┃ ┃ │
┝━╋━╋━╋━╋━╋━╋━╋━┥
│ ┃ ┃ ┃ ┃ ┃ ┃ ┃ │
┝━╋━╋━╋━╋━╋━╋━╋━┥
│ ┃ ┃ ┃ ┃ ┃ ┃ ┃ │
┝━╋━╋━╋━╋━╋━╋━╋━┥
│ ┃ ┃ ┃ ┃ ┃ ┃ ┃ │
┝━╋━╋━╋━╋━╋━╋━╋━┥
│♟┃♞┃♝┃♜┃♛┃♔┃ ┃ │
└─┸─┸─┸─┸─┸─┸─┸─┘
Code
dfb <- tibble(piece_side = "board_face", x = 10, y = 10, suit = 2, cfg = "go")
dfs <- tibble(piece_side = "bit_back", x = 1:19, y = 1:19, suit = 1:19 %% 6 + 1,
cfg = "go")
df <- dplyr::bind_rows(dfb, dfs)
cat_piece(df)
Output
┌─┰─┰─┰─┰─┰─┰─┰─┰─┰─┰─┰─┰─┰─┰─┰─┰─┰─●
│ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ │
┝━╋━╋━╋━╋━╋━╋━╋━╋━╋━╋━╋━╋━╋━╋━╋━╋━●━┥
│ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ │
┝━╋━╋━╋━╋━╋━╋━╋━╋━╋━╋━╋━╋━╋━╋━╋━○━╋━┥
│ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ │
┝━╋━╋━╋━╋━╋━╋━╋━╋━╋━╋━╋━╋━╋━╋━●━╋━╋━┥
│ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ │
┝━╋━╋━╋━╋━╋━╋━╋━╋━╋━╋━╋━╋━╋━●━╋━╋━╋━┥
│ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ │
┝━╋━╋━╋━╋━╋━╋━╋━╋━╋━╋━╋━╋━●━╋━╋━╋━╋━┥
│ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ │
┝━╋━╋━╋━╋━╋━╋━╋━╋━╋━╋━╋━●━╋━╋━╋━╋━╋━┥
│ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ │
┝━╋━╋━╋━╋━╋━╋━╋━╋━╋━╋━●━╋━╋━╋━╋━╋━╋━┥
│ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ │
┝━╋━╋━╋━╋━╋━╋━╋━╋━╋━○━╋━╋━╋━╋━╋━╋━╋━┥
│ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ │
┝━╋━╋━╋━╋━╋━╋━╋━╋━●━╋━╋━╋━╋━╋━╋━╋━╋━┥
│ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ │
┝━╋━╋━╋━╋━╋━╋━╋━●━╋━╋━╋━╋━╋━╋━╋━╋━╋━┥
│ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ │
┝━╋━╋━╋━╋━╋━╋━●━╋━╋━╋━╋━╋━╋━╋━╋━╋━╋━┥
│ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ │
┝━╋━╋━╋━╋━╋━●━╋━╋━╋━╋━╋━╋━╋━╋━╋━╋━╋━┥
│ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ │
┝━╋━╋━╋━╋━●━╋━╋━╋━╋━╋━╋━╋━╋━╋━╋━╋━╋━┥
│ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ │
┝━╋━╋━╋━○━╋━╋━╋━╋━╋━╋━╋━╋━╋━╋━╋━╋━╋━┥
│ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ │
┝━╋━╋━●━╋━╋━╋━╋━╋━╋━╋━╋━╋━╋━╋━╋━╋━╋━┥
│ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ │
┝━╋━●━╋━╋━╋━╋━╋━╋━╋━╋━╋━╋━╋━╋━╋━╋━╋━┥
│ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ │
┝━●━╋━╋━╋━╋━╋━╋━╋━╋━╋━╋━╋━╋━╋━╋━╋━╋━┥
│ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ │
●─┸─┸─┸─┸─┸─┸─┸─┸─┸─┸─┸─┸─┸─┸─┸─┸─┸─┘
trevorld/ppgames documentation built on Jan. 13, 2025, 11:12 p.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
text diagrams
Code
dft <- tibble(piece_side = "board_back", x = seq(1.5, 5.5, 2), y = 1.5, rank = 2,
cfg = "checkers1")
dfb <- tibble(piece_side = "bit_back", x = 1:6, y = 1, suit = 1:6, cfg = "checkers1")
dfd <- tibble(piece_side = "die_face", x = 1:6, y = 2, suit = 1:6, rank = 1:6,
cfg = "dice", angle = c(45, rep(0, 5)))
df <- dplyr::bind_rows(dft, dfb, dfd)
cat_piece(df)
Output
┌─┰─┬─┰─┬─┰─┐
│·⃟┃⠌⃞│⋰⃞┃∷⃞│⁙⃞┃⠿⃞│
┝━╋━┿━╋━┿━╋━┥
│⛂┃⛂│⛂┃⛂│⛂┃⛀│
└─┸─┴─┸─┴─┸─┘
Code
df <- dplyr::mutate(df, cfg = gsub("checkers1", "checkers2", cfg), x = 2 * x,
y = 2 * y)
cat_piece(df)
Output
┌───┰───┬───┰───┬───┰───┐
│ ┃ │ ┃ │ ┃ │
│ ·⃟ ┃ ⠌⃞ │ ⋰⃞ ┃ ∷⃞ │ ⁙⃞ ┃ ⠿⃞ │
│ ┃ │ ┃ │ ┃ │
┝━━━╋━━━┿━━━╋━━━┿━━━╋━━━┥
│ ┃ │ ┃ │ ┃ │
│ ⛂ ┃ ⛂ │ ⛂ ┃ ⛂ │ ⛂ ┃ ⛀ │
│ ┃ │ ┃ │ ┃ │
└───┸───┴───┸───┴───┸───┘
Code
df <- tibble(piece_side = "die_face", x = 1:6, y = 1, rank = 1:6, suit = 1:6,
cfg = "dice_fudge")
cat_piece(df)
Output
−⃞ ⃞ +⃞ +⃞ ⃞ −⃞
Code
df$angle <- 90
cat_piece(df)
Output
|⃞ ⃞ +⃞ +⃞ ⃞ |⃞
Code
dfb <- tibble(piece_side = "board_face", x = c(2.5, 6.5), y = 2, rank = 4, cfg = "checkers1")
dfpt <- tibble(piece_side = "pyramid_top", x = 1:8, y = 4, rank = rep(1:3,
length.out = 8), suit = c(1:6, 1:2), angle = seq(0, by = 45, length.out = 8),
cfg = "icehouse_pieces")
dfpf <- tibble(piece_side = rep(c("pyramid_face", "pyramid_left",
"pyramid_right", "pyramid_back"), 6), x = rep(1:8, 3), y = rep(1:3, each = 8),
rank = rep(1:3, each = 8), suit = rep(1:6, 4), angle = rep(seq(0, by = 45,
length.out = 8), 3), cfg = "icehouse_pieces")
df <- dplyr::bind_rows(dfb, dfpt, dfpf)
cat_piece(df)
Output
┌■̣┰◆̤┰■⃨┰◆̣┬■̤┰◇⃨┰■̣┰◆̤┐
│ ┃ ┃ ┃ │ ┃ ┃ ┃ │
┝▲⃨╋◸⃨╋◀⃨╋◣⃨┿▼⃨╋◢⃨╋▶⃨╋◹⃨┥
│ ┃ ┃ ┃ │ ┃ ┃ ┃ │
┝▲̤╋◤̤╋◀̤╋◺̤┿▼̤╋◢̤╋▶̤╋◥̤┥
│ ┃ ┃ ┃ │ ┃ ┃ ┃ │
┝▲̣╋◤̣╋◀̣╋◣̣┿▼̣╋◿̣╋▶̣╋◥̣┥
│ ┃ ┃ ┃ │ ┃ ┃ ┃ │
└─┸─┸─┸─┴─┸─┸─┸─┘
Code
dfpt <- tibble(piece_side = "tile_back", x = c(1.5, 3.5, 1.5, 3.5), y = c(1.5,
1.5, 3.5, 3.5))
dfbt <- tibble(piece_side = rep(c("tile_face", "tile_back"), 2), x = 1:4, y = 1,
suit = 1:4, rank = 1:4, cfg = "subpack")
dfc <- tibble(piece_side = rep(c("coin_face", "coin_back"), 2), x = 1:4, y = 2,
suit = 1:4, rank = 1:4, cfg = "subpack")
dfd <- tibble(piece_side = "die_face", x = 1:4, y = 3, suit = 1:4, rank = 1:4,
cfg = "subpack")
dfp <- tibble(piece_side = rep(c("pawn_face", "pawn_back"), 2), x = 1:4, y = 4,
suit = 1:4, rank = 1:4, cfg = "subpack")
df <- dplyr::bind_rows(dfpt, dfbt, dfc, dfd, dfp)
cat_piece(df)
Output
┌─┰─┬─┰─┐
│☀⃟┃☾⃟│♛⃟┃⸸⃟│
┝━╋━┿━╋━┥
│n⃞┃a⃞│2⃞┃3⃞│
├─╂─┼─╂─┤
│n⃝┃☾⃝│2⃝┃⸸⃝│
├─╀┰┼─╀┰┤
│n┝╋┥2┝╋┥
└─┴┸┴─┴┸┘
Code
dft <- tibble(piece_side = "tile_face", x = c(1.5, 3.5), y = 1.5, suit = 1,
rank = 4, angle = c(90, 270))
dfpb <- tibble(piece_side = "pawn_back", x = 1:2, y = 1, suit = 2:1, angle = c(
0, 45))
dfpf <- tibble(piece_side = "pawn_face", x = 1, y = 2, suit = 1, angle = 45)
dfbf <- tibble(piece_side = "bit_face", x = 3, y = 1, suit = 3, cfg = "checkers1")
df <- dplyr::bind_rows(dft, dfpb, dfpf, dfbf)
cat_piece(df)
Output
┌───┬───┐
│☀⃞ │ ☀│
│ m │ ω │
│☾⃟ ☀⃞│⛂ │
└───┴───┘
Code
dff <- tibble(piece_side = "tile_face", x = rep(1:6, 2), y = rep(c(1, 3), each = 6),
suit = rep(1:6, 2), rank = rep(2:7, 2), angle = rep(c(0, 180), each = 6), cfg = rep(
paste0("dominoes_", c("black", "blue", "green", "red", "white", "yellow")), 2))
dfb <- tibble(piece_side = "tile_back", x = 1:6, y = 5, suit = 1:6, rank = 2:7,
angle = rep(c(0, 180), each = 3), cfg = paste0("dominoes_", c("black", "blue",
"green", "red", "white", "yellow")))
df <- dplyr::bind_rows(dff, dfb)
cat_piece(df)
Output
┌─┬─┬─┬─┬─┬─┐
│ │ │ │ │ │ │
│ │ │ │ │ │ │
│ │ │ │ │ │ │
├─┼─┼─┼─┼─┼─┤
│ │·│⠌│⋰│∷│⁙│
│━│━│━│━│━│━│
│·│⠌│⋰│∷│⁙│⠿│
├─┼─┼─┼─┼─┼─┤
│·│⠌│⋰│∷│⁙│⠿│
│━│━│━│━│━│━│
│ │·│⠌│⋰│∷│⁙│
└─┴─┴─┴─┴─┴─┘
Code
dff <- tibble(piece_side = "tile_face", x = rep(c(1, 3), each = 6), y = rep(1:6,
2), suit = rep(1:6, 2), rank = rep(2:7, 2), angle = rep(c(90, 270), each = 6),
cfg = rep(paste0("dominoes_", c("black", "blue", "green", "red", "white",
"yellow")), 2))
dfb <- tibble(piece_side = "tile_back", x = 5, y = 1:6, suit = 1:6, rank = 2:7,
angle = rep(c(90, 270), each = 3), cfg = paste0("dominoes_", c("black", "blue",
"green", "red", "white", "yellow")))
df <- dplyr::bind_rows(dff, dfb)
cat_piece(df)
Output
┌───┬───┬───┐
│…⃛┃⁙│⁙┃…⃛│ │
├───┼───┼───┤
│⁙┃∷│∷┃⁙│ │
├───┼───┼───┤
│∷┃⋱│⋱┃∷│ │
├───┼───┼───┤
│⋱┃⠡│⠡┃⋱│ │
├───┼───┼───┤
│⠡┃·│·┃⠡│ │
├───┼───┼───┤
│·┃ │ ┃·│ │
└───┴───┴───┘
Code
dft <- tibble(piece_side = "tile_back", x = rep(seq(1, 9, 2), 7), y = rep(seq(1,
13, 2), each = 5))
for (angle in seq(0, 315, 45)) {
dfm <- tibble(piece_side = "matchstick_face", x = 1:6, y = seq(1, 11, 2),
suit = 1, rank = 1:6, angle = angle)
df <- dplyr::bind_rows(dft, dfm)
cat_piece(df)
}
Output
┌─┰─┬─┰─┬─┰─┬─┰─┬─┰─┐
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
┝━╋━┿━╋━┿━╋━┿━╋━┿━╋━┥
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
├─╂─┼─╂─┼─╂─┃─╂─┼─╂─┤
│ ┃ │ ┃ │ ┃ ┃ ┃ │ ┃ │
┝━╋━┿━╋━┿━╋━┃━╋━┿━╋━┥
│ ┃ │ ┃ │ ┃ ┃ ┃ │ ┃ │
├─╂─┼─╂─┼─╂─┃─╂─┼─╂─┤
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
┝━╋━┿━╋━┿━┃━┿━╋━┿━╋━┥
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
├─╂─┼─╂─┼─╂─┼─╂─┼─╂─┤
│ ┃ │ ┃ ┃ ┃ │ ┃ │ ┃ │
┝━╋━┿━╋━┃━╋━┿━╋━┿━╋━┥
│ ┃ │ ┃ ┃ ┃ │ ┃ │ ┃ │
├─╂─┼─╂─┼─╂─┼─╂─┼─╂─┤
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
┝━╋━┿━┃━┿━╋━┿━╋━┿━╋━┥
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
├─╂─┼─╂─┼─╂─┼─╂─┼─╂─┤
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
┝━╋━┃━╋━┿━╋━┿━╋━┿━╋━┥
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
├─╂─┼─╂─┼─╂─┼─╂─┼─╂─┤
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
┝━■━┿━╋━┿━╋━┿━╋━┿━╋━┥
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
└─┸─┴─┸─┴─┸─┴─┸─┴─┸─┘
┌─┰─┬─┰─┬─┰─┬─┰─┬─┰─┐
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
┝━╋━┿━╋━┿━╋━┿━╋━┿━╋━┥
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
├─╂─┼─╂─┼─╂─┼─╂─┼─╂─┤
│ ┃ │ ┃ │ ┃╲│ ┃ │ ┃ │
┝━╋━┿━╋━┿━╋━╲━╋━┿━╋━┥
│ ┃ │ ┃ │ ┃ │╲┃ │ ┃ │
├─╂─┼─╂─┼─╂─┼─╂─┼─╂─┤
│ ┃ │ ┃ │╲┃ │ ┃ │ ┃ │
┝━╋━┿━╋━┿━╲━┿━╋━┿━╋━┥
│ ┃ │ ┃ │ ┃╲│ ┃ │ ┃ │
├─╂─┼─╂─┼─╂─┼─╂─┼─╂─┤
│ ┃ │ ┃╲│ ┃ │ ┃ │ ┃ │
┝━╋━┿━╋━╲━╋━┿━╋━┿━╋━┥
│ ┃ │ ┃ │╲┃ │ ┃ │ ┃ │
├─╂─┼─╂─┼─╂─┼─╂─┼─╂─┤
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
┝━╋━┿━╲━┿━╋━┿━╋━┿━╋━┥
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
├─╂─┼─╂─┼─╂─┼─╂─┼─╂─┤
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
┝━╋━╲━╋━┿━╋━┿━╋━┿━╋━┥
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
├─╂─┼─╂─┼─╂─┼─╂─┼─╂─┤
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
┝━◆━┿━╋━┿━╋━┿━╋━┿━╋━┥
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
└─┸─┴─┸─┴─┸─┴─┸─┴─┸─┘
┌─┰─┬─┰─┬─┰─┬─┰─┬─┰─┐
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
┝━╋━┿━╋━┿━╋━┿━╋━┿━╋━┥
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
├─╂─┼─╂─┼─╂─┼─╂─┼─╂─┤
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
┝━╋━┿━╋━┿━━━━━━━┿━╋━┥
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
├─╂─┼─╂─┼─╂─┼─╂─┼─╂─┤
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
┝━╋━┿━╋━┿━━━┿━╋━┿━╋━┥
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
├─╂─┼─╂─┼─╂─┼─╂─┼─╂─┤
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
┝━╋━┿━╋━━━╋━┿━╋━┿━╋━┥
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
├─╂─┼─╂─┼─╂─┼─╂─┼─╂─┤
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
┝━╋━┿━━━┿━╋━┿━╋━┿━╋━┥
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
├─╂─┼─╂─┼─╂─┼─╂─┼─╂─┤
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
┝━╋━━━╋━┿━╋━┿━╋━┿━╋━┥
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
├─╂─┼─╂─┼─╂─┼─╂─┼─╂─┤
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
┝━■━┿━╋━┿━╋━┿━╋━┿━╋━┥
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
└─┸─┴─┸─┴─┸─┴─┸─┴─┸─┘
┌─┰─┬─┰─┬─┰─┬─┰─┬─┰─┐
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
┝━╋━┿━╋━┿━╋━┿━╋━┿━╋━┥
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
├─╂─┼─╂─┼─╂─┼─╂─┼─╂─┤
│ ┃ │ ┃ │ ┃ │╱┃ │ ┃ │
┝━╋━┿━╋━┿━╋━╱━╋━┿━╋━┥
│ ┃ │ ┃ │ ┃╱│ ┃ │ ┃ │
├─╂─┼─╂─┼─╂─┼─╂─┼─╂─┤
│ ┃ │ ┃ │ ┃╱│ ┃ │ ┃ │
┝━╋━┿━╋━┿━╱━┿━╋━┿━╋━┥
│ ┃ │ ┃ │╱┃ │ ┃ │ ┃ │
├─╂─┼─╂─┼─╂─┼─╂─┼─╂─┤
│ ┃ │ ┃ │╱┃ │ ┃ │ ┃ │
┝━╋━┿━╋━╱━╋━┿━╋━┿━╋━┥
│ ┃ │ ┃╱│ ┃ │ ┃ │ ┃ │
├─╂─┼─╂─┼─╂─┼─╂─┼─╂─┤
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
┝━╋━┿━╱━┿━╋━┿━╋━┿━╋━┥
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
├─╂─┼─╂─┼─╂─┼─╂─┼─╂─┤
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
┝━╋━╱━╋━┿━╋━┿━╋━┿━╋━┥
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
├─╂─┼─╂─┼─╂─┼─╂─┼─╂─┤
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
┝━◆━┿━╋━┿━╋━┿━╋━┿━╋━┥
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
└─┸─┴─┸─┴─┸─┴─┸─┴─┸─┘
┌─┰─┬─┰─┬─┰─┬─┰─┬─┰─┐
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
┝━╋━┿━╋━┿━╋━┿━╋━┿━╋━┥
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
├─╂─┼─╂─┼─╂─┃─╂─┼─╂─┤
│ ┃ │ ┃ │ ┃ ┃ ┃ │ ┃ │
┝━╋━┿━╋━┿━╋━┃━╋━┿━╋━┥
│ ┃ │ ┃ │ ┃ ┃ ┃ │ ┃ │
├─╂─┼─╂─┼─╂─┃─╂─┼─╂─┤
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
┝━╋━┿━╋━┿━┃━┿━╋━┿━╋━┥
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
├─╂─┼─╂─┼─╂─┼─╂─┼─╂─┤
│ ┃ │ ┃ ┃ ┃ │ ┃ │ ┃ │
┝━╋━┿━╋━┃━╋━┿━╋━┿━╋━┥
│ ┃ │ ┃ ┃ ┃ │ ┃ │ ┃ │
├─╂─┼─╂─┼─╂─┼─╂─┼─╂─┤
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
┝━╋━┿━┃━┿━╋━┿━╋━┿━╋━┥
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
├─╂─┼─╂─┼─╂─┼─╂─┼─╂─┤
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
┝━╋━┃━╋━┿━╋━┿━╋━┿━╋━┥
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
├─╂─┼─╂─┼─╂─┼─╂─┼─╂─┤
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
┝━■━┿━╋━┿━╋━┿━╋━┿━╋━┥
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
└─┸─┴─┸─┴─┸─┴─┸─┴─┸─┘
┌─┰─┬─┰─┬─┰─┬─┰─┬─┰─┐
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
┝━╋━┿━╋━┿━╋━┿━╋━┿━╋━┥
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
├─╂─┼─╂─┼─╂─┼─╂─┼─╂─┤
│ ┃ │ ┃ │ ┃╲│ ┃ │ ┃ │
┝━╋━┿━╋━┿━╋━╲━╋━┿━╋━┥
│ ┃ │ ┃ │ ┃ │╲┃ │ ┃ │
├─╂─┼─╂─┼─╂─┼─╂─┼─╂─┤
│ ┃ │ ┃ │╲┃ │ ┃ │ ┃ │
┝━╋━┿━╋━┿━╲━┿━╋━┿━╋━┥
│ ┃ │ ┃ │ ┃╲│ ┃ │ ┃ │
├─╂─┼─╂─┼─╂─┼─╂─┼─╂─┤
│ ┃ │ ┃╲│ ┃ │ ┃ │ ┃ │
┝━╋━┿━╋━╲━╋━┿━╋━┿━╋━┥
│ ┃ │ ┃ │╲┃ │ ┃ │ ┃ │
├─╂─┼─╂─┼─╂─┼─╂─┼─╂─┤
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
┝━╋━┿━╲━┿━╋━┿━╋━┿━╋━┥
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
├─╂─┼─╂─┼─╂─┼─╂─┼─╂─┤
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
┝━╋━╲━╋━┿━╋━┿━╋━┿━╋━┥
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
├─╂─┼─╂─┼─╂─┼─╂─┼─╂─┤
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
┝━◆━┿━╋━┿━╋━┿━╋━┿━╋━┥
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
└─┸─┴─┸─┴─┸─┴─┸─┴─┸─┘
┌─┰─┬─┰─┬─┰─┬─┰─┬─┰─┐
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
┝━╋━┿━╋━┿━╋━┿━╋━┿━╋━┥
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
├─╂─┼─╂─┼─╂─┼─╂─┼─╂─┤
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
┝━╋━┿━╋━┿━━━━━━━┿━╋━┥
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
├─╂─┼─╂─┼─╂─┼─╂─┼─╂─┤
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
┝━╋━┿━╋━┿━━━┿━╋━┿━╋━┥
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
├─╂─┼─╂─┼─╂─┼─╂─┼─╂─┤
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
┝━╋━┿━╋━━━╋━┿━╋━┿━╋━┥
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
├─╂─┼─╂─┼─╂─┼─╂─┼─╂─┤
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
┝━╋━┿━━━┿━╋━┿━╋━┿━╋━┥
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
├─╂─┼─╂─┼─╂─┼─╂─┼─╂─┤
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
┝━╋━━━╋━┿━╋━┿━╋━┿━╋━┥
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
├─╂─┼─╂─┼─╂─┼─╂─┼─╂─┤
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
┝━■━┿━╋━┿━╋━┿━╋━┿━╋━┥
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
└─┸─┴─┸─┴─┸─┴─┸─┴─┸─┘
┌─┰─┬─┰─┬─┰─┬─┰─┬─┰─┐
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
┝━╋━┿━╋━┿━╋━┿━╋━┿━╋━┥
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
├─╂─┼─╂─┼─╂─┼─╂─┼─╂─┤
│ ┃ │ ┃ │ ┃ │╱┃ │ ┃ │
┝━╋━┿━╋━┿━╋━╱━╋━┿━╋━┥
│ ┃ │ ┃ │ ┃╱│ ┃ │ ┃ │
├─╂─┼─╂─┼─╂─┼─╂─┼─╂─┤
│ ┃ │ ┃ │ ┃╱│ ┃ │ ┃ │
┝━╋━┿━╋━┿━╱━┿━╋━┿━╋━┥
│ ┃ │ ┃ │╱┃ │ ┃ │ ┃ │
├─╂─┼─╂─┼─╂─┼─╂─┼─╂─┤
│ ┃ │ ┃ │╱┃ │ ┃ │ ┃ │
┝━╋━┿━╋━╱━╋━┿━╋━┿━╋━┥
│ ┃ │ ┃╱│ ┃ │ ┃ │ ┃ │
├─╂─┼─╂─┼─╂─┼─╂─┼─╂─┤
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
┝━╋━┿━╱━┿━╋━┿━╋━┿━╋━┥
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
├─╂─┼─╂─┼─╂─┼─╂─┼─╂─┤
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
┝━╋━╱━╋━┿━╋━┿━╋━┿━╋━┥
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
├─╂─┼─╂─┼─╂─┼─╂─┼─╂─┤
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
┝━◆━┿━╋━┿━╋━┿━╋━┿━╋━┥
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
└─┸─┴─┸─┴─┸─┴─┸─┴─┸─┘
Code
dfm <- tibble(piece_side = "matchstick_back", x = 1:4, y = seq(1, 7, 2), suit = 1,
rank = 5, angle = c(60, 120, 240, 300))
df <- dplyr::bind_rows(dft, dfm)
cat_piece(df)
Output
┌─┰─┬─┰─┬─┰─┬─┰─┬─┰─┐
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
┝━╋━┿━╋━┿━╋━┿━╋━┿━╋━┥
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
├─╂─┼─╂─┼─╂─┼─╂─┼─╂─┤
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
┝━╋━┿━╋━┿━╋━┿━╋━┿━╋━┥
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
├─╂─┼─╂─┼─╂─┼─╂─┼─╂─┤
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
┝━╋━┿━╋━┿━╋━┿━╋━┿━╋━┥
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
├─╂─┼─╂─┼─╂─┼─╂─┼─╂─┤
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
┝━╋━┿━╋━╱━╋━┿━╋━┿━╋━┥
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
├─╂─┼─╂─┼─╂─┼─╂─┼─╂─┤
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
┝━╋━┿━╲━┿━╋━┿━╋━┿━╋━┥
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
├─╂─┼─╂─┼─╂─┼─╂─┼─╂─┤
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
┝━╋━╱━╋━┿━╋━┿━╋━┿━╋━┥
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
├─╂─┼─╂─┼─╂─┼─╂─┼─╂─┤
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
┝━╲━┿━╋━┿━╋━┿━╋━┿━╋━┥
│ ┃ │ ┃ │ ┃ │ ┃ │ ┃ │
└─┸─┴─┸─┴─┸─┴─┸─┴─┸─┘
Code
dfb <- tibble(piece_side = "board_face", x = 4.5, y = 4.5, suit = 2, cfg = "chess1")
dfp <- tibble(piece_side = "bit_face", x = 1:6, y = 1, rank = 1:6, suit = 1:6,
cfg = "chess1")
df <- dplyr::bind_rows(dfb, dfp)
cat_piece(df)
Output
┌─┰─┰─┰─┰─┰─┰─┰─┐
│ ┃ ┃ ┃ ┃ ┃ ┃ ┃ │
┝━╋━╋━╋━╋━╋━╋━╋━┥
│ ┃ ┃ ┃ ┃ ┃ ┃ ┃ │
┝━╋━╋━╋━╋━╋━╋━╋━┥
│ ┃ ┃ ┃ ┃ ┃ ┃ ┃ │
┝━╋━╋━╋━╋━╋━╋━╋━┥
│ ┃ ┃ ┃ ┃ ┃ ┃ ┃ │
┝━╋━╋━╋━╋━╋━╋━╋━┥
│ ┃ ┃ ┃ ┃ ┃ ┃ ┃ │
┝━╋━╋━╋━╋━╋━╋━╋━┥
│ ┃ ┃ ┃ ┃ ┃ ┃ ┃ │
┝━╋━╋━╋━╋━╋━╋━╋━┥
│ ┃ ┃ ┃ ┃ ┃ ┃ ┃ │
┝━╋━╋━╋━╋━╋━╋━╋━┥
│♟┃♞┃♝┃♜┃♛┃♔┃ ┃ │
└─┸─┸─┸─┸─┸─┸─┸─┘
Code
dfb <- tibble(piece_side = "board_face", x = 10, y = 10, suit = 2, cfg = "go")
dfs <- tibble(piece_side = "bit_back", x = 1:19, y = 1:19, suit = 1:19 %% 6 + 1,
cfg = "go")
df <- dplyr::bind_rows(dfb, dfs)
cat_piece(df)
Output
┌─┰─┰─┰─┰─┰─┰─┰─┰─┰─┰─┰─┰─┰─┰─┰─┰─┰─●
│ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ │
┝━╋━╋━╋━╋━╋━╋━╋━╋━╋━╋━╋━╋━╋━╋━╋━╋━●━┥
│ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ │
┝━╋━╋━╋━╋━╋━╋━╋━╋━╋━╋━╋━╋━╋━╋━╋━○━╋━┥
│ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ │
┝━╋━╋━╋━╋━╋━╋━╋━╋━╋━╋━╋━╋━╋━╋━●━╋━╋━┥
│ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ │
┝━╋━╋━╋━╋━╋━╋━╋━╋━╋━╋━╋━╋━╋━●━╋━╋━╋━┥
│ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ │
┝━╋━╋━╋━╋━╋━╋━╋━╋━╋━╋━╋━╋━●━╋━╋━╋━╋━┥
│ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ │
┝━╋━╋━╋━╋━╋━╋━╋━╋━╋━╋━╋━●━╋━╋━╋━╋━╋━┥
│ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ │
┝━╋━╋━╋━╋━╋━╋━╋━╋━╋━╋━●━╋━╋━╋━╋━╋━╋━┥
│ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ │
┝━╋━╋━╋━╋━╋━╋━╋━╋━╋━○━╋━╋━╋━╋━╋━╋━╋━┥
│ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ │
┝━╋━╋━╋━╋━╋━╋━╋━╋━●━╋━╋━╋━╋━╋━╋━╋━╋━┥
│ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ │
┝━╋━╋━╋━╋━╋━╋━╋━●━╋━╋━╋━╋━╋━╋━╋━╋━╋━┥
│ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ │
┝━╋━╋━╋━╋━╋━╋━●━╋━╋━╋━╋━╋━╋━╋━╋━╋━╋━┥
│ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ │
┝━╋━╋━╋━╋━╋━●━╋━╋━╋━╋━╋━╋━╋━╋━╋━╋━╋━┥
│ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ │
┝━╋━╋━╋━╋━●━╋━╋━╋━╋━╋━╋━╋━╋━╋━╋━╋━╋━┥
│ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ │
┝━╋━╋━╋━○━╋━╋━╋━╋━╋━╋━╋━╋━╋━╋━╋━╋━╋━┥
│ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ │
┝━╋━╋━●━╋━╋━╋━╋━╋━╋━╋━╋━╋━╋━╋━╋━╋━╋━┥
│ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ │
┝━╋━●━╋━╋━╋━╋━╋━╋━╋━╋━╋━╋━╋━╋━╋━╋━╋━┥
│ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ │
┝━●━╋━╋━╋━╋━╋━╋━╋━╋━╋━╋━╋━╋━╋━╋━╋━╋━┥
│ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ │
●─┸─┸─┸─┸─┸─┸─┸─┸─┸─┸─┸─┸─┸─┸─┸─┸─┸─┘
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.