Nothing
#' Delete all player history and re-lock the casino
#' @export
delete <- function() {
file <- Sys.getenv("CASINO_FILE")
if (file.exists(file))
unlink(file)
Sys.unsetenv("CASINO_FILE")
}
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.