knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>",
  fig.path = "man/figures/README-",
  out.width = "100%"
)

cbx

Lifecycle: experimental

O objetivo desse pacote é brincar com dados de xadrez no R.

Installation

# install.packages("devtools")
devtools::install_github("tomasbarcellos/cbx")

Examplo

Esse pacote contem dados do 87o Campeonato Brasileiro Absoluto Final Aberta.

library(cbx)
library(dplyr)
glimpse(campeonato)

É possível buscar partidas das formas usadas regularmentes no tidyverse.

campeonato %>% 
  filter(resultado == "1/2-1/2")

A 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)
plot(chsspgn)


tomasbarcellos/cbx documentation built on Dec. 23, 2021, 11:55 a.m.