R/delete.R

#' 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")
}

Try the casino package in your browser

Any scripts or data that you put into this service are public.

casino documentation built on May 2, 2019, 8:41 a.m.