#' 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")
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.