Running examples in 'casino-Ex.R' failed
The error most likely occurred in:

> ### Name: Slots
> ### Title: Slots R6 Class
> ### Aliases: Slots
> ### Keywords: datasets
> 
> ### ** Examples
> 
> set.seed(101315)
> setup()
No records found.
Storing player records at 'd:/Rcompile/CRANpkg/local/4.3/casino.Rcheck/.casino'
Updating value for environment variable 'CASINO_FILE'.
> 
> # start the slot machine
> x <- Slots$new(who = "Player 1", bet = 10)
You have no money!
> 
> # play 1 game
> x$play()
You bet 10; you have 90 left.
 Reels: * * %
   You lost -10!
   Now you have 90 in your account.
Do you want to `play()` again?
> 
> # play >1 game at a time
> x$play(spins = 3)
You bet 10; you have 80 left.
Error in `vec_c()`:
! Can't convert `outcome` <list> to <double>.
Backtrace:
     ▆
  1. ├─x$play(spins = 3)
  2. │ └─private$end_game()
  3. │   └─private$score()
  4. │     ├─... %>% ...
  5. │     ├─dplyr::left_join(...)
  6. │     ├─dplyr:::left_join.data.frame(...)
  7. │     │ └─dplyr::auto_copy(x, y, copy = copy)
  8. │     │   ├─dplyr::same_src(x, y)
  9. │     │   └─dplyr:::same_src.data.frame(x, y)
 10. │     │     └─base::is.data.frame(y)
 11. │     └─private$payout()
 12. │       ├─... %>% dplyr::arrange(desc(multiplier))
 13. │       └─tibble::tibble(...)
 14. │         └─tibble:::tibble_quos(xs, .rows, .name_repair)
 15. │           └─tibble:::splice_dfs(output)
 16. │             └─vctrs::vec_c(!!!x, .name_spec = "{inner}")
 17. ├─dplyr::mutate(...)
 18. ├─dplyr::arrange(., desc(multiplier))
 19. └─vctrs (local) `<fn>`()
 20.   └─vctrs::vec_default_cast(...)
 21.     ├─base::withRestarts(...)
 22.     │ └─base (local) withOneRestart(expr, restarts[[1L]])
 23.     │   └─base (local) doWithOneRestart(return(expr), restart)
 24.     └─vctrs::stop_incompatible_cast(...)
 25.       └─vctrs::stop_incompatible_type(...)
 26.         └─vctrs:::stop_incompatible(...)
 27.           └─vctrs:::stop_vctrs(...)
 28.             └─rlang::abort(message, class = c(class, "vctrs_error"), ..., call = call)
Execution halted