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")
}
anthonypileggi/casino documentation built on May 16, 2019, 4:54 p.m.