tests/test-ambiguous-moves.R

In cj-holmes/ggambit: Visualise FEN chess positions

library(ggambit)
library(tidyverse)

# In a few cases a more detailed representation is needed to resolve ambiguity;
# if so, the piece's file letter, numerical rank, or the exact square is inserted after the moving piece's name (in that order of preference). T
# Thus, Nge2 specifies that the knight originally on the g-file moves to e2.

start <- Sys.time()
s <- pgn_to_df('~/../Downloads/starkers-white.pgn') %>% bind_rows()
Sys.time() - start


# Piece - file - move square
s %>% filter(str_detect(move, "[A-Z]{1}[^x]{1}[a-z]{1}[0-9]{1}"))


# Piece - rank - move square
s %>% filter(str_detect(move, "[A-Z]{1}[0-9]{1}[a-z]{1}[0-9]{1}"))


# Piece - file rank - move square
# I cant find any
s %>% filter(str_detect(move, "[A-Z]{1}[a-z]{1}[0-9]{1}[a-z]{1}[0-9]{1}"))

# Check the regexp works
str_extract("------Re6f6-----", "[A-Z]{1}[a-z]{1}[0-9]{1}[a-z]{1}[0-9]{1}")