Running 'testthat.R' [38s]
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
  Column `gutenberg_id` must be length 0 (the number of rows) or one, not 2
  1: gutenberg_download(c(46, 105), meta_fields = c("title", "author")) at testthat/test-download.R:19
  2: full_url %>% purrr::map(try_download) %>% purrr::discard(is.null) %>% purrr::map_df(~data_frame(text = .), 
         .id = "gutenberg_id") %>% mutate(gutenberg_id = as.integer(gutenberg_id))
  3: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: eval(quote(`_fseq`(`_lhs`)), env, env)
  6: `_fseq`(`_lhs`)
  7: freduce(value, `_function_list`)
  8: withVisible(function_list[[k]](value))
  9: function_list[[k]](value)
  10: mutate(., gutenberg_id = as.integer(gutenberg_id))
  11: mutate.tbl_df(., gutenberg_id = as.integer(gutenberg_id))
  12: mutate_impl(.data, dots)
  
  -- 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
  Column `gutenberg_id` must be length 0 (the number of rows) or one, not 2
  1: expect_warning(d <- gutenberg_download(c(5, 1e+06)), "Could not download") at testthat/test-download.R:55
  2: quasi_capture(enquo(object), capture_warnings, label = label)
  3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
  4: withCallingHandlers(code, warning = function(condition) {
         out$push(condition)
         invokeRestart("muffleWarning")
     })
  5: eval_bare(get_expr(quo), get_env(quo))
  6: gutenberg_download(c(5, 1e+06))
  7: full_url %>% purrr::map(try_download) %>% purrr::discard(is.null) %>% purrr::map_df(~data_frame(text = .), 
         .id = "gutenberg_id") %>% mutate(gutenberg_id = as.integer(gutenberg_id))
  8: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  9: eval(quote(`_fseq`(`_lhs`)), env, env)
  10: eval(quote(`_fseq`(`_lhs`)), env, env)
  11: `_fseq`(`_lhs`)
  12: freduce(value, `_function_list`)
  13: withVisible(function_list[[k]](value))
  14: function_list[[k]](value)
  15: mutate(., gutenberg_id = as.integer(gutenberg_id))
  16: mutate.tbl_df(., gutenberg_id = as.integer(gutenberg_id))
  17: mutate_impl(.data, dots)
  
  == testthat results  ===========================================================
  OK: 39 SKIPPED: 1 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