Nothing
reveal_surrounding <- function(board, nbors, nrow, ncol) {
for(row in seq_len(nrow(nbors))) {
board <- reveal(board, nbors[row, 1], nbors[row, 2], nrow, ncol)
}
board
}
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.