Nothing
flag_cell <- function(board, i, j) {
cell <- switch(
board[[i, j]],
`F` = "-",
`-` = "F"
)
if(is.null(cell)) return(board)
update_cell(board, cell, i, j)
}
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.