Running ‘spelling.R’ [0s/1s]
  Running ‘testthat.R’ [5s/128s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(whatr)
  > 
  > test_check("whatr")
  ── ERROR (test-answers.R:6:3): answers return from HTML ────────────────────────
  Error: 'NA' does not exist in current working directory ('/home/hornik/tmp/R.check/r-devel-gcc/Work/PKGS/whatr.Rcheck/tests/testthat').
  Backtrace:
       █
    1. └─whatr_html(id) %>% whatr_answers() test-answers.R:6:2
    2.   ├─base::withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
    3.   └─base::eval(quote(`_fseq`(`_lhs`)), env, env)
    4.     └─base::eval(quote(`_fseq`(`_lhs`)), env, env)
    5.       └─whatr:::`_fseq`(`_lhs`)
    6.         └─magrittr::freduce(value, `_function_list`)
    7.           ├─base::withVisible(function_list[[k]](value))
    8.           └─function_list[[k]](value)
    9.             └─whatr::whatr_answers(.)
   10.               └─`%>%`(...)
   11.                 ├─base::withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
   12.                 └─base::eval(quote(`_fseq`(`_lhs`)), env, env)
   13.                   └─base::eval(quote(`_fseq`(`_lhs`)), env, env)
   14.                     └─whatr:::`_fseq`(`_lhs`)
   15.                       └─magrittr::freduce(value, `_function_list`)
   16.                         └─function_list[[i]](value)
   17.                           ├─xml2::read_html(.)
   18.                           └─xml2:::read_html.default(.)
   19.                             ├─base::suppressWarnings(...)
   20.                             │ └─base::withCallingHandlers(...)
   21.                             ├─xml2::read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
   22.                             └─xml2:::read_xml.character(...)
   23.                               └─xml2:::path_to_connection(x)
   24.                                 └─xml2:::check_path(path)
  
  ── ERROR (test-answers.R:13:3): answers return from game ID ────────────────────
  Error: 'NA' does not exist in current working directory ('/home/hornik/tmp/R.check/r-devel-gcc/Work/PKGS/whatr.Rcheck/tests/testthat').
  Backtrace:
       █
    1. └─whatr::whatr_answers(game = id) test-answers.R:13:2
    2.   └─`%>%`(...)
    3.     ├─base::withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
    4.     └─base::eval(quote(`_fseq`(`_lhs`)), env, env)
    5.       └─base::eval(quote(`_fseq`(`_lhs`)), env, env)
    6.         └─whatr:::`_fseq`(`_lhs`)
    7.           └─magrittr::freduce(value, `_function_list`)
    8.             └─function_list[[i]](value)
    9.               ├─xml2::read_html(.)
   10.               └─xml2:::read_html.default(.)
   11.                 ├─base::suppressWarnings(...)
   12.                 │ └─base::withCallingHandlers(...)
   13.                 ├─xml2::read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
   14.                 └─xml2:::read_xml.character(...)
   15.                   └─xml2:::path_to_connection(x)
   16.                     └─xml2:::check_path(path)
  
  ── ERROR (test-board.R:6:3): full board returns from HTML ──────────────────────
  Error: Problem with `mutate()` input `round`.
  ✖ Input `round` can't be recycled to size 0.
  ℹ Input `round` is `c(rep(1L, 6), rep(2L, 6), 3L)`.
  ℹ Input `round` must be size 0 or 1, not 13.
  Backtrace:
       █
    1. ├─whatr_html(id) %>% whatr_board() test-board.R:6:2
    2. │ ├─base::withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
    3. │ └─base::eval(quote(`_fseq`(`_lhs`)), env, env)
    4. │   └─base::eval(quote(`_fseq`(`_lhs`)), env, env)
    5. │     └─whatr:::`_fseq`(`_lhs`)
    6. │       └─magrittr::freduce(value, `_function_list`)
    7. │         ├─base::withVisible(function_list[[k]](value))
    8. │         └─function_list[[k]](value)
    9. │           └─whatr::whatr_board(.)
   10. │             └─whatr::whatr_categories(game)
   11. │               └─`%>%`(...)
   12. │                 ├─base::withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
   13. │                 └─base::eval(quote(`_fseq`(`_lhs`)), env, env)
   14. │                   └─base::eval(quote(`_fseq`(`_lhs`)), env, env)
   15. │                     └─whatr:::`_fseq`(`_lhs`)
   16. │                       └─magrittr::freduce(value, `_function_list`)
   17. │                         └─function_list[[i]](value)
   18. │                           ├─dplyr::mutate(...)
   19. │                           └─dplyr:::mutate.data.frame(...)
   20. │                             └─dplyr:::mutate_cols(.data, ...)
   21. │                               ├─base::withCallingHandlers(...)
   22. │                               └─mask$eval_all_mutate(dots[[i]])
   23. ├─dplyr:::abort_glue(character(0), list(x_size = 13L), "dplyr:::mutate_incompatible_size")
   24. │ ├─rlang::exec(abort, class = class, !!!.envir)
   25. │ └─(function (message = NULL, class = NULL, ..., trace = NULL, parent = NULL, ...
   26. │   └─rlang:::signal_abort(cnd)
   27. │     └─base::signalCondition(cnd)
   28. └─(function (e) ...
  
  ── ERROR (test-board.R:13:3): full board returns from game ID ──────────────────
  Error: Problem with `mutate()` input `round`.
  ✖ Input `round` can't be recycled to size 0.
  ℹ Input `round` is `c(rep(1L, 6), rep(2L, 6), 3L)`.
  ℹ Input `round` must be size 0 or 1, not 13.
  Backtrace:
       █
    1. ├─whatr::whatr_board(game = id) test-board.R:13:2
    2. │ └─whatr::whatr_categories(game)
    3. │   └─`%>%`(...)
    4. │     ├─base::withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
    5. │     └─base::eval(quote(`_fseq`(`_lhs`)), env, env)
    6. │       └─base::eval(quote(`_fseq`(`_lhs`)), env, env)
    7. │         └─whatr:::`_fseq`(`_lhs`)
    8. │           └─magrittr::freduce(value, `_function_list`)
    9. │             └─function_list[[i]](value)
   10. │               ├─dplyr::mutate(...)
   11. │               └─dplyr:::mutate.data.frame(...)
   12. │                 └─dplyr:::mutate_cols(.data, ...)
   13. │                   ├─base::withCallingHandlers(...)
   14. │                   └─mask$eval_all_mutate(dots[[i]])
   15. ├─dplyr:::abort_glue(character(0), list(x_size = 13L), "dplyr:::mutate_incompatible_size")
   16. │ ├─rlang::exec(abort, class = class, !!!.envir)
   17. │ └─(function (message = NULL, class = NULL, ..., trace = NULL, parent = NULL, ...
   18. │   └─rlang:::signal_abort(cnd)
   19. │     └─base::signalCondition(cnd)
   20. └─(function (e) ...
  
  ── ERROR (test-categories.R:6:3): categories return from HTML ──────────────────
  Error: Problem with `mutate()` input `round`.
  ✖ Input `round` can't be recycled to size 0.
  ℹ Input `round` is `c(rep(1L, 6), rep(2L, 6), 3L)`.
  ℹ Input `round` must be size 0 or 1, not 13.
  Backtrace:
       █
    1. ├─whatr_html(id) %>% whatr_categories() test-categories.R:6:2
    2. │ ├─base::withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
    3. │ └─base::eval(quote(`_fseq`(`_lhs`)), env, env)
    4. │   └─base::eval(quote(`_fseq`(`_lhs`)), env, env)
    5. │     └─whatr:::`_fseq`(`_lhs`)
    6. │       └─magrittr::freduce(value, `_function_list`)
    7. │         ├─base::withVisible(function_list[[k]](value))
    8. │         └─function_list[[k]](value)
    9. │           └─whatr::whatr_categories(.)
   10. │             └─`%>%`(...)
   11. │               ├─base::withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
   12. │               └─base::eval(quote(`_fseq`(`_lhs`)), env, env)
   13. │                 └─base::eval(quote(`_fseq`(`_lhs`)), env, env)
   14. │                   └─whatr:::`_fseq`(`_lhs`)
   15. │                     └─magrittr::freduce(value, `_function_list`)
   16. │                       └─function_list[[i]](value)
   17. │                         ├─dplyr::mutate(...)
   18. │                         └─dplyr:::mutate.data.frame(...)
   19. │                           └─dplyr:::mutate_cols(.data, ...)
   20. │                             ├─base::withCallingHandlers(...)
   21. │                             └─mask$eval_all_mutate(dots[[i]])
   22. ├─dplyr:::abort_glue(character(0), list(x_size = 13L), "dplyr:::mutate_incompatible_size")
   23. │ ├─rlang::exec(abort, class = class, !!!.envir)
   24. │ └─(function (message = NULL, class = NULL, ..., trace = NULL, parent = NULL, ...
   25. │   └─rlang:::signal_abort(cnd)
   26. │     └─base::signalCondition(cnd)
   27. └─(function (e) ...
  
  ── ERROR (test-categories.R:13:3): categories return from game ID ──────────────
  Error: Problem with `mutate()` input `round`.
  ✖ Input `round` can't be recycled to size 0.
  ℹ Input `round` is `c(rep(1L, 6), rep(2L, 6), 3L)`.
  ℹ Input `round` must be size 0 or 1, not 13.
  Backtrace:
       █
    1. ├─whatr::whatr_categories(game = id) test-categories.R:13:2
    2. │ └─`%>%`(...)
    3. │   ├─base::withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
    4. │   └─base::eval(quote(`_fseq`(`_lhs`)), env, env)
    5. │     └─base::eval(quote(`_fseq`(`_lhs`)), env, env)
    6. │       └─whatr:::`_fseq`(`_lhs`)
    7. │         └─magrittr::freduce(value, `_function_list`)
    8. │           └─function_list[[i]](value)
    9. │             ├─dplyr::mutate(...)
   10. │             └─dplyr:::mutate.data.frame(...)
   11. │               └─dplyr:::mutate_cols(.data, ...)
   12. │                 ├─base::withCallingHandlers(...)
   13. │                 └─mask$eval_all_mutate(dots[[i]])
   14. ├─dplyr:::abort_glue(character(0), list(x_size = 13L), "dplyr:::mutate_incompatible_size")
   15. │ ├─rlang::exec(abort, class = class, !!!.envir)
   16. │ └─(function (message = NULL, class = NULL, ..., trace = NULL, parent = NULL, ...
   17. │   └─rlang:::signal_abort(cnd)
   18. │     └─base::signalCondition(cnd)
   19. └─(function (e) ...
  
  ── Warning (test-clues.R:6:3): clues return from HTML ──────────────────────────
  no non-missing arguments to max; returning -Inf
  
  ── ERROR (test-clues.R:6:3): clues return from HTML ────────────────────────────
  Error: Problem with `mutate()` input `round`.
  ✖ no applicable method for 'recode' applied to an object of class "logical"
  ℹ Input `round` is `as.integer(.data$round %>% dplyr::recode(J = "1", DJ = "2", FJ = "3"))`.
  Backtrace:
       █
    1. ├─whatr_html(id) %>% whatr_clues() test-clues.R:6:2
    2. │ ├─base::withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
    3. │ └─base::eval(quote(`_fseq`(`_lhs`)), env, env)
    4. │   └─base::eval(quote(`_fseq`(`_lhs`)), env, env)
    5. │     └─whatr:::`_fseq`(`_lhs`)
    6. │       └─magrittr::freduce(value, `_function_list`)
    7. │         ├─base::withVisible(function_list[[k]](value))
    8. │         └─function_list[[k]](value)
    9. │           └─whatr::whatr_clues(.)
   10. │             └─`%>%`(...)
   11. │               ├─base::withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
   12. │               └─base::eval(quote(`_fseq`(`_lhs`)), env, env)
   13. │                 └─base::eval(quote(`_fseq`(`_lhs`)), env, env)
   14. │                   └─whatr:::`_fseq`(`_lhs`)
   15. │                     └─magrittr::freduce(value, `_function_list`)
   16. │                       └─function_list[[i]](value)
   17. │                         ├─dplyr::bind_cols(., whatr_order(game = game))
   18. │                         │ └─rlang::list2(...)
   19. │                         └─whatr:::whatr_order(game = game)
   20. │                           └─`%>%`(...)
   21. │                             ├─base::withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
   22. │                             └─base::eval(quote(`_fseq`(`_lhs`)), env, env)
   23. │                               └─base::eval(quote(`_fseq`(`_lhs`)), env, env)
   24. │                                 └─whatr:::`_fseq`(`_lhs`)
   25. │                                   └─magrittr::freduce(value, `_function_list`)
   26. │                                     ├─base::withVisible(function_list[[k]](value))
   27. │                                     └─function_list[[k]](value)
   28. │                                       ├─dplyr::mutate(...)
   29. │                                       └─dplyr:::mutate.data.frame(...)
   30. │                                         └─dplyr:::mutate_cols(.data, ...)
   31. │                                           ├─base::withCallingHandlers(...)
   32. │                                           └─mask$eval_all_mutate(dots[[i]])
   33. ├─.data$round %>% dplyr::recode(J = "1", DJ = "2", FJ = "3")
   34. │ ├─base::withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
   35. │ └─base::eval(quote(`_fseq`(`_lhs`)), env, env)
   36. │   └─base::eval(quote(`_fseq`(`_lhs`)), env, env)
   37. │     └─whatr:::`_fseq`(`_lhs`)
   38. │       └─magrittr::freduce(value, `_function_list`)
   39. │         ├─base::withVisible(function_list[[k]](value))
   40. │         └─function_list[[k]](value)
   41. │           └─dplyr::recode(., J = "1", DJ = "2", FJ = "3")
   42. └─base::.handleSimpleError(...)
   43.   └─dplyr:::h(simpleError(msg, call))
  
  ── Warning (test-clues.R:13:3): clues return from game ID ──────────────────────
  no non-missing arguments to max; returning -Inf
  
  ── ERROR (test-clues.R:13:3): clues return from game ID ────────────────────────
  Error: Problem with `mutate()` input `round`.
  ✖ no applicable method for 'recode' applied to an object of class "logical"
  ℹ Input `round` is `as.integer(.data$round %>% dplyr::recode(J = "1", DJ = "2", FJ = "3"))`.
  Backtrace:
       █
    1. ├─whatr::whatr_clues(game = id) test-clues.R:13:2
    2. │ └─`%>%`(...)
    3. │   ├─base::withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
    4. │   └─base::eval(quote(`_fseq`(`_lhs`)), env, env)
    5. │     └─base::eval(quote(`_fseq`(`_lhs`)), env, env)
    6. │       └─whatr:::`_fseq`(`_lhs`)
    7. │         └─magrittr::freduce(value, `_function_list`)
    8. │           └─function_list[[i]](value)
    9. │             ├─dplyr::bind_cols(., whatr_order(game = game))
   10. │             │ └─rlang::list2(...)
   11. │             └─whatr:::whatr_order(game = game)
   12. │               └─`%>%`(...)
   13. │                 ├─base::withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
   14. │                 └─base::eval(quote(`_fseq`(`_lhs`)), env, env)
   15. │                   └─base::eval(quote(`_fseq`(`_lhs`)), env, env)
   16. │                     └─whatr:::`_fseq`(`_lhs`)
   17. │                       └─magrittr::freduce(value, `_function_list`)
   18. │                         ├─base::withVisible(function_list[[k]](value))
   19. │                         └─function_list[[k]](value)
   20. │                           ├─dplyr::mutate(...)
   21. │                           └─dplyr:::mutate.data.frame(...)
   22. │                             └─dplyr:::mutate_cols(.data, ...)
   23. │                               ├─base::withCallingHandlers(...)
   24. │                               └─mask$eval_all_mutate(dots[[i]])
   25. ├─.data$round %>% dplyr::recode(J = "1", DJ = "2", FJ = "3")
   26. │ ├─base::withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
   27. │ └─base::eval(quote(`_fseq`(`_lhs`)), env, env)
   28. │   └─base::eval(quote(`_fseq`(`_lhs`)), env, env)
   29. │     └─whatr:::`_fseq`(`_lhs`)
   30. │       └─magrittr::freduce(value, `_function_list`)
   31. │         ├─base::withVisible(function_list[[k]](value))
   32. │         └─function_list[[k]](value)
   33. │           └─dplyr::recode(., J = "1", DJ = "2", FJ = "3")
   34. └─base::.handleSimpleError(...)
   35.   └─dplyr:::h(simpleError(msg, call))
  
  ── FAILURE (test-convert.R:21:3): game ID can be converted to showscores HTML ──
  is(object, "xml_document") & grepl("ddred", object) is not TRUE
  
  `actual`:   FALSE
  `expected`: TRUE 
  
  ── FAILURE (test-convert.R:32:3): showgame HTML can be converted to showscores H
  is(object, "xml_document") & grepl("ddred", object) is not TRUE
  
  `actual`:   FALSE
  `expected`: TRUE 
  
  ── FAILURE (test-convert.R:42:3): showscores HTML can be converted to showscores
  is(object, "xml_document") & grepl("ddred", object) is not TRUE
  
  `actual`:   FALSE
  `expected`: TRUE 
  
  ── FAILURE (test-convert.R:60:3): show num can be converted to showscores HTML ─
  is(object, "xml_document") & grepl("ddred", object) is not TRUE
  
  `actual`:   FALSE
  `expected`: TRUE 
  
  ── FAILURE (test-convert.R:73:3): air date can be converted to showscores HTML ─
  is(object, "xml_document") & grepl("ddred", object) is not TRUE
  
  `actual`:   FALSE
  `expected`: TRUE 
  
  ── ERROR (test-data.R:6:3): categories return from game ID ─────────────────────
  Error: no applicable method for 'html_table' applied to an object of class "xml_missing"
  Backtrace:
       █
    1. └─whatr::whatr_data(game = id) test-data.R:6:2
    2.   └─whatr::whatr_synopsis(showgame)
    3.     └─`%>%`(...)
    4.       ├─base::withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
    5.       └─base::eval(quote(`_fseq`(`_lhs`)), env, env)
    6.         └─base::eval(quote(`_fseq`(`_lhs`)), env, env)
    7.           └─whatr:::`_fseq`(`_lhs`)
    8.             └─magrittr::freduce(value, `_function_list`)
    9.               └─function_list[[i]](value)
   10.                 └─rvest::html_table(., header = TRUE, fill = TRUE)
  
  ── Warning (test-doubles.R:6:3): order returns from HTML ───────────────────────
  no non-missing arguments to max; returning -Inf
  
  ── ERROR (test-doubles.R:6:3): order returns from HTML ─────────────────────────
  Error: Problem with `mutate()` input `round`.
  ✖ no applicable method for 'recode' applied to an object of class "logical"
  ℹ Input `round` is `as.integer(.data$round %>% dplyr::recode(J = "1", DJ = "2", FJ = "3"))`.
  Backtrace:
       █
    1. ├─whatr_html(id) %>% whatr_doubles() test-doubles.R:6:2
    2. │ ├─base::withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
    3. │ └─base::eval(quote(`_fseq`(`_lhs`)), env, env)
    4. │   └─base::eval(quote(`_fseq`(`_lhs`)), env, env)
    5. │     └─whatr:::`_fseq`(`_lhs`)
    6. │       └─magrittr::freduce(value, `_function_list`)
    7. │         ├─base::withVisible(function_list[[k]](value))
    8. │         └─function_list[[k]](value)
    9. │           └─whatr::whatr_doubles(.)
   10. │             └─whatr:::whatr_order(showgame)
   11. │               └─`%>%`(...)
   12. │                 ├─base::withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
   13. │                 └─base::eval(quote(`_fseq`(`_lhs`)), env, env)
   14. │                   └─base::eval(quote(`_fseq`(`_lhs`)), env, env)
   15. │                     └─whatr:::`_fseq`(`_lhs`)
   16. │                       └─magrittr::freduce(value, `_function_list`)
   17. │                         ├─base::withVisible(function_list[[k]](value))
   18. │                         └─function_list[[k]](value)
   19. │                           ├─dplyr::mutate(...)
   20. │                           └─dplyr:::mutate.data.frame(...)
   21. │                             └─dplyr:::mutate_cols(.data, ...)
   22. │                               ├─base::withCallingHandlers(...)
   23. │                               └─mask$eval_all_mutate(dots[[i]])
   24. ├─.data$round %>% dplyr::recode(J = "1", DJ = "2", FJ = "3")
   25. │ ├─base::withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
   26. │ └─base::eval(quote(`_fseq`(`_lhs`)), env, env)
   27. │   └─base::eval(quote(`_fseq`(`_lhs`)), env, env)
   28. │     └─whatr:::`_fseq`(`_lhs`)
   29. │       └─magrittr::freduce(value, `_function_list`)
   30. │         ├─base::withVisible(function_list[[k]](value))
   31. │         └─function_list[[k]](value)
   32. │           └─dplyr::recode(., J = "1", DJ = "2", FJ = "3")
   33. └─base::.handleSimpleError(...)
   34.   └─dplyr:::h(simpleError(msg, call))
  
  ── Warning (test-doubles.R:14:3): order returns from game ID ───────────────────
  no non-missing arguments to max; returning -Inf
  
  ── ERROR (test-doubles.R:14:3): order returns from game ID ─────────────────────
  Error: Problem with `mutate()` input `round`.
  ✖ no applicable method for 'recode' applied to an object of class "logical"
  ℹ Input `round` is `as.integer(.data$round %>% dplyr::recode(J = "1", DJ = "2", FJ = "3"))`.
  Backtrace:
       █
    1. ├─whatr::whatr_doubles(game = id) test-doubles.R:14:2
    2. │ └─whatr:::whatr_order(showgame)
    3. │   └─`%>%`(...)
    4. │     ├─base::withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
    5. │     └─base::eval(quote(`_fseq`(`_lhs`)), env, env)
    6. │       └─base::eval(quote(`_fseq`(`_lhs`)), env, env)
    7. │         └─whatr:::`_fseq`(`_lhs`)
    8. │           └─magrittr::freduce(value, `_function_list`)
    9. │             ├─base::withVisible(function_list[[k]](value))
   10. │             └─function_list[[k]](value)
   11. │               ├─dplyr::mutate(...)
   12. │               └─dplyr:::mutate.data.frame(...)
   13. │                 └─dplyr:::mutate_cols(.data, ...)
   14. │                   ├─base::withCallingHandlers(...)
   15. │                   └─mask$eval_all_mutate(dots[[i]])
   16. ├─.data$round %>% dplyr::recode(J = "1", DJ = "2", FJ = "3")
   17. │ ├─base::withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
   18. │ └─base::eval(quote(`_fseq`(`_lhs`)), env, env)
   19. │   └─base::eval(quote(`_fseq`(`_lhs`)), env, env)
   20. │     └─whatr:::`_fseq`(`_lhs`)
   21. │       └─magrittr::freduce(value, `_function_list`)
   22. │         ├─base::withVisible(function_list[[k]](value))
   23. │         └─function_list[[k]](value)
   24. │           └─dplyr::recode(., J = "1", DJ = "2", FJ = "3")
   25. └─base::.handleSimpleError(...)
   26.   └─dplyr:::h(simpleError(msg, call))
  
  ── Warning (test-order.R:6:3): order returns from HTML ─────────────────────────
  no non-missing arguments to max; returning -Inf
  
  ── ERROR (test-order.R:6:3): order returns from HTML ───────────────────────────
  Error: Problem with `mutate()` input `round`.
  ✖ no applicable method for 'recode' applied to an object of class "logical"
  ℹ Input `round` is `as.integer(.data$round %>% dplyr::recode(J = "1", DJ = "2", FJ = "3"))`.
  Backtrace:
       █
    1. ├─whatr_html(id) %>% whatr_order() test-order.R:6:2
    2. │ ├─base::withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
    3. │ └─base::eval(quote(`_fseq`(`_lhs`)), env, env)
    4. │   └─base::eval(quote(`_fseq`(`_lhs`)), env, env)
    5. │     └─whatr:::`_fseq`(`_lhs`)
    6. │       └─magrittr::freduce(value, `_function_list`)
    7. │         ├─base::withVisible(function_list[[k]](value))
    8. │         └─function_list[[k]](value)
    9. │           └─whatr:::whatr_order(.)
   10. │             └─`%>%`(...)
   11. │               ├─base::withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
   12. │               └─base::eval(quote(`_fseq`(`_lhs`)), env, env)
   13. │                 └─base::eval(quote(`_fseq`(`_lhs`)), env, env)
   14. │                   └─whatr:::`_fseq`(`_lhs`)
   15. │                     └─magrittr::freduce(value, `_function_list`)
   16. │                       ├─base::withVisible(function_list[[k]](value))
   17. │                       └─function_list[[k]](value)
   18. │                         ├─dplyr::mutate(...)
   19. │                         └─dplyr:::mutate.data.frame(...)
   20. │                           └─dplyr:::mutate_cols(.data, ...)
   21. │                             ├─base::withCallingHandlers(...)
   22. │                             └─mask$eval_all_mutate(dots[[i]])
   23. ├─.data$round %>% dplyr::recode(J = "1", DJ = "2", FJ = "3")
   24. │ ├─base::withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
   25. │ └─base::eval(quote(`_fseq`(`_lhs`)), env, env)
   26. │   └─base::eval(quote(`_fseq`(`_lhs`)), env, env)
   27. │     └─whatr:::`_fseq`(`_lhs`)
   28. │       └─magrittr::freduce(value, `_function_list`)
   29. │         ├─base::withVisible(function_list[[k]](value))
   30. │         └─function_list[[k]](value)
   31. │           └─dplyr::recode(., J = "1", DJ = "2", FJ = "3")
   32. └─base::.handleSimpleError(...)
   33.   └─dplyr:::h(simpleError(msg, call))
  
  ── Warning (test-order.R:13:3): order returns from game ID ─────────────────────
  no non-missing arguments to max; returning -Inf
  
  ── ERROR (test-order.R:13:3): order returns from game ID ───────────────────────
  Error: Problem with `mutate()` input `round`.
  ✖ no applicable method for 'recode' applied to an object of class "logical"
  ℹ Input `round` is `as.integer(.data$round %>% dplyr::recode(J = "1", DJ = "2", FJ = "3"))`.
  Backtrace:
       █
    1. ├─whatr:::whatr_order(game = id) test-order.R:13:2
    2. │ └─`%>%`(...)
    3. │   ├─base::withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
    4. │   └─base::eval(quote(`_fseq`(`_lhs`)), env, env)
    5. │     └─base::eval(quote(`_fseq`(`_lhs`)), env, env)
    6. │       └─whatr:::`_fseq`(`_lhs`)
    7. │         └─magrittr::freduce(value, `_function_list`)
    8. │           ├─base::withVisible(function_list[[k]](value))
    9. │           └─function_list[[k]](value)
   10. │             ├─dplyr::mutate(...)
   11. │             └─dplyr:::mutate.data.frame(...)
   12. │               └─dplyr:::mutate_cols(.data, ...)
   13. │                 ├─base::withCallingHandlers(...)
   14. │                 └─mask$eval_all_mutate(dots[[i]])
   15. ├─.data$round %>% dplyr::recode(J = "1", DJ = "2", FJ = "3")
   16. │ ├─base::withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
   17. │ └─base::eval(quote(`_fseq`(`_lhs`)), env, env)
   18. │   └─base::eval(quote(`_fseq`(`_lhs`)), env, env)
   19. │     └─whatr:::`_fseq`(`_lhs`)
   20. │       └─magrittr::freduce(value, `_function_list`)
   21. │         ├─base::withVisible(function_list[[k]](value))
   22. │         └─function_list[[k]](value)
   23. │           └─dplyr::recode(., J = "1", DJ = "2", FJ = "3")
   24. └─base::.handleSimpleError(...)
   25.   └─dplyr:::h(simpleError(msg, call))
  
  ── ERROR (test-players.R:6:3): players return from HTML ────────────────────────
  Error: no applicable method for 'html_table' applied to an object of class "xml_missing"
  Backtrace:
       █
    1. └─whatr_html(id) %>% whatr_players() test-players.R:6:2
    2.   ├─base::withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
    3.   └─base::eval(quote(`_fseq`(`_lhs`)), env, env)
    4.     └─base::eval(quote(`_fseq`(`_lhs`)), env, env)
    5.       └─whatr:::`_fseq`(`_lhs`)
    6.         └─magrittr::freduce(value, `_function_list`)
    7.           ├─base::withVisible(function_list[[k]](value))
    8.           └─function_list[[k]](value)
    9.             └─whatr::whatr_players(.)
   10.               └─`%>%`(...)
   11.                 ├─base::withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
   12.                 └─base::eval(quote(`_fseq`(`_lhs`)), env, env)
   13.                   └─base::eval(quote(`_fseq`(`_lhs`)), env, env)
   14.                     └─whatr:::`_fseq`(`_lhs`)
   15.                       └─magrittr::freduce(value, `_function_list`)
   16.                         └─function_list[[i]](value)
   17.                           └─rvest::html_table(., fill = TRUE)
  
  ── ERROR (test-players.R:14:3): players return from game ID ────────────────────
  Error: no applicable method for 'html_table' applied to an object of class "xml_missing"
  Backtrace:
      █
   1. └─whatr::whatr_players(game = id) test-players.R:14:2
   2.   └─`%>%`(...)
   3.     ├─base::withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
   4.     └─base::eval(quote(`_fseq`(`_lhs`)), env, env)
   5.       └─base::eval(quote(`_fseq`(`_lhs`)), env, env)
   6.         └─whatr:::`_fseq`(`_lhs`)
   7.           └─magrittr::freduce(value, `_function_list`)
   8.             └─function_list[[i]](value)
   9.               └─rvest::html_table(., fill = TRUE)
  
  ── ERROR (test-plot.R:6:3): answers return from HTML ───────────────────────────
  Error: no applicable method for 'html_table' applied to an object of class "xml_missing"
  Backtrace:
       █
    1. └─whatr_html(id) %>% whatr_plot() test-plot.R:6:2
    2.   ├─base::withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
    3.   └─base::eval(quote(`_fseq`(`_lhs`)), env, env)
    4.     └─base::eval(quote(`_fseq`(`_lhs`)), env, env)
    5.       └─whatr:::`_fseq`(`_lhs`)
    6.         └─magrittr::freduce(value, `_function_list`)
    7.           ├─base::withVisible(function_list[[k]](value))
    8.           └─function_list[[k]](value)
    9.             └─whatr::whatr_plot(.)
   10.               ├─`%>%`(...)
   11.               │ └─base::eval(lhs, parent, parent)
   12.               │   └─base::eval(lhs, parent, parent)
   13.               └─whatr::whatr_scores(game)
   14.                 └─`%>%`(...)
   15.                   ├─base::withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
   16.                   └─base::eval(quote(`_fseq`(`_lhs`)), env, env)
   17.                     └─base::eval(quote(`_fseq`(`_lhs`)), env, env)
   18.                       └─whatr:::`_fseq`(`_lhs`)
   19.                         └─magrittr::freduce(value, `_function_list`)
   20.                           └─function_list[[i]](value)
   21.                             └─rvest::html_table(., fill = TRUE, header = TRUE)
  
  ── ERROR (test-plot.R:12:3): answers return from game ID ───────────────────────
  Error: no applicable method for 'html_table' applied to an object of class "xml_missing"
  Backtrace:
       █
    1. └─whatr::whatr_plot(id) test-plot.R:12:2
    2.   ├─`%>%`(...)
    3.   │ └─base::eval(lhs, parent, parent)
    4.   │   └─base::eval(lhs, parent, parent)
    5.   └─whatr::whatr_scores(game)
    6.     └─`%>%`(...)
    7.       ├─base::withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
    8.       └─base::eval(quote(`_fseq`(`_lhs`)), env, env)
    9.         └─base::eval(quote(`_fseq`(`_lhs`)), env, env)
   10.           └─whatr:::`_fseq`(`_lhs`)
   11.             └─magrittr::freduce(value, `_function_list`)
   12.               └─function_list[[i]](value)
   13.                 └─rvest::html_table(., fill = TRUE, header = TRUE)
  
  ── ERROR (test-scores.R:6:3): scores returns from HTML ─────────────────────────
  Error: no applicable method for 'html_table' applied to an object of class "xml_missing"
  Backtrace:
       █
    1. └─whatr_html(6304, "showscores") %>% whatr_scores() test-scores.R:6:2
    2.   ├─base::withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
    3.   └─base::eval(quote(`_fseq`(`_lhs`)), env, env)
    4.     └─base::eval(quote(`_fseq`(`_lhs`)), env, env)
    5.       └─whatr:::`_fseq`(`_lhs`)
    6.         └─magrittr::freduce(value, `_function_list`)
    7.           ├─base::withVisible(function_list[[k]](value))
    8.           └─function_list[[k]](value)
    9.             └─whatr::whatr_scores(.)
   10.               └─`%>%`(...)
   11.                 ├─base::withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
   12.                 └─base::eval(quote(`_fseq`(`_lhs`)), env, env)
   13.                   └─base::eval(quote(`_fseq`(`_lhs`)), env, env)
   14.                     └─whatr:::`_fseq`(`_lhs`)
   15.                       └─magrittr::freduce(value, `_function_list`)
   16.                         └─function_list[[i]](value)
   17.                           └─rvest::html_table(., fill = TRUE, header = TRUE)
  
  ── ERROR (test-scores.R:15:3): scores returns from game ID ─────────────────────
  Error: no applicable method for 'html_table' applied to an object of class "xml_missing"
  Backtrace:
      █
   1. └─whatr::whatr_scores(game = 6304) test-scores.R:15:2
   2.   └─`%>%`(...)
   3.     ├─base::withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
   4.     └─base::eval(quote(`_fseq`(`_lhs`)), env, env)
   5.       └─base::eval(quote(`_fseq`(`_lhs`)), env, env)
   6.         └─whatr:::`_fseq`(`_lhs`)
   7.           └─magrittr::freduce(value, `_function_list`)
   8.             └─function_list[[i]](value)
   9.               └─rvest::html_table(., fill = TRUE, header = TRUE)
  
  ── ERROR (test-synopsis.R:6:3): summary returns from HTML ──────────────────────
  Error: no applicable method for 'html_table' applied to an object of class "xml_missing"
  Backtrace:
       █
    1. └─whatr_html(id) %>% whatr_synopsis() test-synopsis.R:6:2
    2.   ├─base::withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
    3.   └─base::eval(quote(`_fseq`(`_lhs`)), env, env)
    4.     └─base::eval(quote(`_fseq`(`_lhs`)), env, env)
    5.       └─whatr:::`_fseq`(`_lhs`)
    6.         └─magrittr::freduce(value, `_function_list`)
    7.           ├─base::withVisible(function_list[[k]](value))
    8.           └─function_list[[k]](value)
    9.             └─whatr::whatr_synopsis(.)
   10.               └─`%>%`(...)
   11.                 ├─base::withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
   12.                 └─base::eval(quote(`_fseq`(`_lhs`)), env, env)
   13.                   └─base::eval(quote(`_fseq`(`_lhs`)), env, env)
   14.                     └─whatr:::`_fseq`(`_lhs`)
   15.                       └─magrittr::freduce(value, `_function_list`)
   16.                         └─function_list[[i]](value)
   17.                           └─rvest::html_table(., header = TRUE, fill = TRUE)
  
  ── ERROR (test-synopsis.R:13:3): summary returns from game ID ──────────────────
  Error: no applicable method for 'html_table' applied to an object of class "xml_missing"
  Backtrace:
      █
   1. └─whatr::whatr_synopsis(game = id) test-synopsis.R:13:2
   2.   └─`%>%`(...)
   3.     ├─base::withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
   4.     └─base::eval(quote(`_fseq`(`_lhs`)), env, env)
   5.       └─base::eval(quote(`_fseq`(`_lhs`)), env, env)
   6.         └─whatr:::`_fseq`(`_lhs`)
   7.           └─magrittr::freduce(value, `_function_list`)
   8.             └─function_list[[i]](value)
   9.               └─rvest::html_table(., header = TRUE, fill = TRUE)
  
  ══ testthat results  ═══════════════════════════════════════════════════════════
  ERROR (test-answers.R:6:3): answers return from HTML
  ERROR (test-answers.R:13:3): answers return from game ID
  ERROR (test-board.R:6:3): full board returns from HTML
  ERROR (test-board.R:13:3): full board returns from game ID
  ERROR (test-categories.R:6:3): categories return from HTML
  ERROR (test-categories.R:13:3): categories return from game ID
  Warning (test-clues.R:6:3): clues return from HTML
  ERROR (test-clues.R:6:3): clues return from HTML
  Warning (test-clues.R:13:3): clues return from game ID
  ERROR (test-clues.R:13:3): clues return from game ID
  FAILURE (test-convert.R:21:3): game ID can be converted to showscores HTML
  FAILURE (test-convert.R:32:3): showgame HTML can be converted to showscores HTML
  FAILURE (test-convert.R:42:3): showscores HTML can be converted to showscores HTML
  FAILURE (test-convert.R:60:3): show num can be converted to showscores HTML
  FAILURE (test-convert.R:73:3): air date can be converted to showscores HTML
  ERROR (test-data.R:6:3): categories return from game ID
  Warning (test-doubles.R:6:3): order returns from HTML
  ERROR (test-doubles.R:6:3): order returns from HTML
  Warning (test-doubles.R:14:3): order returns from game ID
  ERROR (test-doubles.R:14:3): order returns from game ID
  Warning (test-order.R:6:3): order returns from HTML
  ERROR (test-order.R:6:3): order returns from HTML
  Warning (test-order.R:13:3): order returns from game ID
  ERROR (test-order.R:13:3): order returns from game ID
  ERROR (test-players.R:6:3): players return from HTML
  ERROR (test-players.R:14:3): players return from game ID
  ERROR (test-plot.R:6:3): answers return from HTML
  ERROR (test-plot.R:12:3): answers return from game ID
  ERROR (test-scores.R:6:3): scores returns from HTML
  ERROR (test-scores.R:15:3): scores returns from game ID
  ERROR (test-synopsis.R:6:3): summary returns from HTML
  ERROR (test-synopsis.R:13:3): summary returns from game ID
  
  [ FAIL 26 | WARN 6 | SKIP 0 | PASS 12 ]
  Error: Test failures
  Execution halted