Running 'testthat.R' [40s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > library(testthat)
  > library(gutenbergr)
  > 
  > test_check("gutenbergr")
  -- 1. Error: Can download Charles Dickens' Christmas Carol and Jane Austen's Per
  Problem with `mutate()` input `gutenberg_id`.
  x Input `gutenberg_id` can't be recycled to size 0.
  i Input `gutenberg_id` is `as.integer(gutenberg_id)`.
  i Input `gutenberg_id` must be size 0 or 1, not 2.
  Backtrace:
    1. gutenbergr::gutenberg_download(...)
    2. purrr::map(., try_download)
    2. purrr::discard(., is.null)
    2. purrr::map_df(., ~tibble(text = .), .id = "gutenberg_id")
   10. dplyr::mutate(., gutenberg_id = as.integer(gutenberg_id))
   12. dplyr:::mutate_cols(.data, ...)
   13. base::tryCatch(...)
   14. base:::tryCatchList(expr, classes, parentenv, handlers)
   15. base:::tryCatchOne(expr, names, parentenv, handlers[[1L]])
   16. value[[3L]](cond)
   17. dplyr:::stop_mutate_recycle_incompatible_size(e, index = i, dots = dots)
   18. dplyr:::stop_dplyr(...)
  
  -- 2. Failure: Can download books from a data frame with gutenberg_id column (@t
  nrow(d) is not strictly more than 10. Difference: -10
  
  -- 3. Failure: We can download a file that only has a -8 version (@test-download
  sum(str_detect(d$text, "Aristotle")) is not strictly more than 50. Difference: -50
  
  -- 4. Error: Trying to download a non-existent book raises a warning (@test-down
  Problem with `mutate()` input `gutenberg_id`.
  x Input `gutenberg_id` can't be recycled to size 0.
  i Input `gutenberg_id` is `as.integer(gutenberg_id)`.
  i Input `gutenberg_id` must be size 0 or 1, not 2.
  Backtrace:
    1. testthat::expect_warning(...)
    6. gutenbergr::gutenberg_download(c(5, 1e+06))
    3. purrr::map(., try_download)
    3. purrr::discard(., is.null)
    3. purrr::map_df(., ~tibble(text = .), .id = "gutenberg_id")
   11. dplyr::mutate(., gutenberg_id = as.integer(gutenberg_id))
   17. dplyr:::mutate_cols(.data, ...)
   18. base::tryCatch(...)
   19. base:::tryCatchList(expr, classes, parentenv, handlers)
   20. base:::tryCatchOne(expr, names, parentenv, handlers[[1L]])
   21. value[[3L]](cond)
   22. dplyr:::stop_mutate_recycle_incompatible_size(e, index = i, dots = dots)
   23. dplyr:::stop_dplyr(...)
  
  == testthat results  ===========================================================
  [ OK: 33 | SKIPPED: 1 | WARNINGS: 8 | FAILED: 4 ]
  1. Error: Can download Charles Dickens' Christmas Carol and Jane Austen's Persuasion (@test-download.R#19) 
  2. Failure: Can download books from a data frame with gutenberg_id column (@test-download.R#43) 
  3. Failure: We can download a file that only has a -8 version (@test-download.R#50) 
  4. Error: Trying to download a non-existent book raises a warning (@test-download.R#55) 
  
  Error: testthat unit tests failed
  Execution halted