O objetivo desse pacote é brincar com dados de xadrez no R.
# install.packages("devtools")
devtools::install_github("tomasbarcellos/cbx")Esse pacote contem dados do 87o Campeonato Brasileiro Absoluto Final Aberta.
library(cbx)
library(dplyr)
glimpse(campeonato)
#> Rows: 294
#> Columns: 6
#> $ evento <chr> "87o Campeonato Brasileiro Absoluto Final Aberta", "87o Camp~
#> $ local <chr> "Cuiaba MT", "Cuiaba MT", "Cuiaba MT", "Cuiaba MT", "Cuiaba ~
#> $ brancas <chr> "Supi, Luis Paulo", "Fontoura, Alexandre Souza", "Mekhitaria~
#> $ pretas <chr> "Sopko, Cassio Roberto", "Fier, Alexandr", "Deus Filho, Joaq~
#> $ resultado <chr> "1-0", "0-1", "1-0", "0-1", "1-0", "0-1", "1-0", "0-1", "1-0~
#> $ pgn <list> <"[Event \"87o Campeonato Brasileiro Absoluto Final Aberta\~É possível buscar partidas das formas usadas regularmentes no
tidyverse.
campeonato %>%
filter(resultado == "1/2-1/2")
#> # A tibble: 45 x 6
#> evento local brancas pretas resultado pgn
#> <chr> <chr> <chr> <chr> <chr> <list>
#> 1 87o Campeonato Bras~ Cuiaba~ Proudian, Armen Lima, Carlos ~ 1/2-1/2 <chr ~
#> 2 87o Campeonato Bras~ Cuiaba~ Correa, Joao Pe~ Federzoni, En~ 1/2-1/2 <chr ~
#> 3 87o Campeonato Bras~ Cuiaba~ Mazetto, Sergio~ Da Cruz, Emer~ 1/2-1/2 <chr ~
#> 4 87o Campeonato Bras~ Cuiaba~ Urquiza, Marcel~ Olivo, Anibal~ 1/2-1/2 <chr ~
#> 5 87o Campeonato Bras~ Cuiaba~ Barbosa Filho, ~ Toth, Peter 1/2-1/2 <chr ~
#> 6 87o Campeonato Bras~ Cuiaba~ De Andrade, Dal~ Naief Moreira~ 1/2-1/2 <chr ~
#> 7 87o Campeonato Bras~ Cuiaba~ Araujo, Everson~ Ferreira, Tha~ 1/2-1/2 <chr ~
#> 8 87o Campeonato Bras~ Cuiaba~ De Souza, Eliel~ Almeida, Tiag~ 1/2-1/2 <chr ~
#> 9 87o Campeonato Bras~ Cuiaba~ Ferreira, Andre~ Baeta, Marcio~ 1/2-1/2 <chr ~
#> 10 87o Campeonato Bras~ Cuiaba~ Lopes, Wendell ~ Felicio, Leon~ 1/2-1/2 <chr ~
#> # ... with 35 more rowsA ideia é poder usar o data.frame para passar partidas especificas com
o auxílio de outros pacotes como rchess ou chess.
set.seed(123)
partida_aleat <- campeonato[sample(nrow(campeonato), 1), ]
chsspgn <- rchess::Chess$new()
pgn <- partida_aleat$pgn[[1]]
pgn <- paste(pgn, collapse = "\n")
chsspgn$load_pgn(pgn)
#> [1] TRUE
plot(chsspgn)