Nothing
pgn <- system.file("extdata/pgn/kasparov_vs_topalov.pgn", package = "rchess")
pgn <- readLines(pgn, warn = FALSE)
pgn <- paste(pgn, collapse = "\n")
cat(pgn)
chsspgn <- Chess$new()
chsspgn$load_pgn(pgn)
chsspgn$history_detail()
chsspgn$history_detail() %>% filter(!is.na(status))
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.