Advanced usage

{chess} has some tools for advanced users. Most of them can be discovered through documentation. Here are a few highlights:

library(chess)

# Create a game with comments and NAGs
anderssen_kieseritzky <- game() %>%
  move(
    "e4", "e5", "f4", "exf4", "Bc4", "Qh4", "Kf1", "b5", "Bxb5", "Nf6", "Nf3",
    "Qh6", "d3", "Nh5", "Nh4", "Qg5", "Nf5", "c6", "g4", "Nf6", "Rg1", "cxb5",
    "h4", "Qg6", "h5", "Qg5", "Qf3", "Ng8", "Bxf4", "Qf6", "Nc3", "Bc5", "Nd5",
    "Qxb2", "Bd6", "Bxg1? {It is from this move that Black's defeat stems.}",
    list("Qxa1 {Wilhelm Steinitz suggested in 1879...}", "Ke2", "Qb2", "Kd2", "Bxg1"),
    "e5", "Qxa1", "Ke2", "Na6", "Nxg7", "Kd8", "Qf6", "Nxf6", "Be7"
  )

# NAG
anderssen_kieseritzky %>%
  root() %>%
  forward(36) %>%
  nag()
#> [1] "?"

# Comment
anderssen_kieseritzky %>%
  root() %>%
  forward(36) %>%
  note()
#> [1] "It is from this move that Black's defeat stems."

# Some useful functions
fen(anderssen_kieseritzky)
#> [1] "r1bk3r/p2pBpNp/n4n2/1p1NP2P/6P1/3P4/P1P1K3/q5b1 b - - 1 23"
turn(anderssen_kieseritzky) # White = TRUE and Black = FALSE
#> [1] FALSE
move_number(anderssen_kieseritzky)
#> [1] 23
ply_number(anderssen_kieseritzky)
#> [1] 45
result(anderssen_kieseritzky)
#> [1] "1-0"

# Find all moves available
moves(root(anderssen_kieseritzky))
#>  [1] "Nh3" "Nf3" "Nc3" "Na3" "h3"  "g3"  "f3"  "e3"  "d3"  "c3"  "b3"  "a3" 
#> [13] "h4"  "g4"  "f4"  "e4"  "d4"  "c4"  "b4"  "a4"

# Some verifiers
is_checkmate(anderssen_kieseritzky)
#> [1] TRUE
is_check(anderssen_kieseritzky)
#> [1] TRUE
is_game_over(anderssen_kieseritzky)
#> [1] TRUE