Running ‘testthat.R’ [3s/4s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(nfl4th)
  > 
  > test_check("nfl4th")
  Saving _problems/test-wrapper-64.R
  [ FAIL 1 | WARN 0 | SKIP 3 | PASS 0 ]
  
  ══ Skipped tests (3) ═══════════════════════════════════════════════════════════
  • On CRAN (3): 'test-basic.R:4:3', 'test-basic.R:15:3', 'test-wrapper.R:3:3'
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-wrapper.R:56:3'): add_2pt_probs works ──────────────────────────
  Error in `filter(nflreadr::load_schedules(), season > 2013)`: i In argument: `season > 2013`.
  Caused by error:
  ! object 'season' not found
  Backtrace:
       ▆
    1. ├─knitr::kable(...)
    2. ├─nfl4th::make_2pt_table_data(nfl4th::add_2pt_probs(another_play))
    3. │ ├─dplyr::select(...)
    4. │ └─tibble::tibble(...)
    5. │   └─tibble:::tibble_quos(xs, .rows, .name_repair)
    6. │     └─rlang::eval_tidy(xs[[j]], mask)
    7. ├─nfl4th::add_2pt_probs(another_play)
    8. │ └─nfl4th:::prepare_df(modified_df)
    9. │   ├─dplyr::mutate(...)
   10. │   ├─dplyr::left_join(...)
   11. │   ├─dplyr:::left_join.data.frame(...)
   12. │   │ └─dplyr::auto_copy(x, y, copy = copy)
   13. │   │   ├─dplyr::same_src(x, y)
   14. │   │   └─dplyr:::same_src.data.frame(x, y)
   15. │   │     └─base::is.data.frame(y)
   16. │   └─nfl4th:::.games_nfl4th()
   17. │     └─nfl4th:::get_games_file()
   18. │       ├─dplyr::select(...)
   19. │       ├─dplyr::mutate_at(...)
   20. │       │ └─dplyr:::manip_at(...)
   21. │       │   └─dplyr:::tbl_at_syms(...)
   22. │       │     └─dplyr:::tbl_at_vars(...)
   23. │       │       └─dplyr::tbl_vars(tbl)
   24. │       │         ├─dplyr:::new_sel_vars(tbl_vars_dispatch(x), group_vars(x))
   25. │       │         │ └─base::structure(...)
   26. │       │         └─dplyr:::tbl_vars_dispatch(x)
   27. │       ├─dplyr::mutate(...)
   28. │       ├─dplyr::filter(nflreadr::load_schedules(), season > 2013)
   29. │       └─dplyr:::filter.data.frame(nflreadr::load_schedules(), season > 2013)
   30. │         └─dplyr:::filter_impl(...)
   31. │           └─dplyr:::filter_rows(...)
   32. │             └─dplyr:::filter_eval(...)
   33. │               ├─base::withCallingHandlers(...)
   34. │               └─mask$eval_all_filter(dots_expanded, invert, env_filter)
   35. │                 └─dplyr (local) eval()
   36. └─dplyr (local) `<fn>`(`<objctNFE>`)
   37.   └─rlang::abort(message, class = error_class, parent = parent, call = error_call)
  
  [ FAIL 1 | WARN 0 | SKIP 3 | PASS 0 ]
  Error:
  ! Test failures.
  Execution halted