Running 'testthat.R' [12s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > library(testthat)
  > library(gutenbergr)
  > 
  > test_check("gutenbergr")
  -- 1. Error: gutenberg_get_mirror works (@test-download.R#8)  ------------------
  HTTP error 403.
  1: gutenberg_get_mirror() at testthat/test-download.R:8
  2: readr::read_lines(wget_url)
  3: datasource(file, skip = skip)
  4: datasource_connection(file, skip, comment)
  5: datasource_raw(read_connection(path), skip, comment = comment)
  6: new_datasource("raw", text, skip = skip, comment = comment)
  7: structure(list(x, skip = skip, comment = comment, ...), class = c(paste0("source_", 
         type), "source"))
  8: read_connection(path)
  9: open(con, "rb")
  10: open.connection(con, "rb")
  
  -- 2. Error: Can download Charles Dickens' Christmas Carol and Jane Austen's Per
  HTTP error 403.
  1: gutenberg_download(c(46, 105), meta_fields = c("title", "author")) at testthat/test-download.R:19
  2: gutenberg_get_mirror(verbose = verbose)
  3: readr::read_lines(wget_url)
  4: datasource(file, skip = skip)
  5: datasource_connection(file, skip, comment)
  6: datasource_raw(read_connection(path), skip, comment = comment)
  7: new_datasource("raw", text, skip = skip, comment = comment)
  8: structure(list(x, skip = skip, comment = comment, ...), class = c(paste0("source_", 
         type), "source"))
  9: read_connection(path)
  10: open(con, "rb")
  11: open.connection(con, "rb")
  
  -- 3. Error: Can download books from a data frame with gutenberg_id column (@tes
  HTTP error 403.
  1: gutenberg_works(title == "The United States Constitution") %>% gutenberg_download() at testthat/test-download.R:40
  2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3: eval(quote(`_fseq`(`_lhs`)), env, env)
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: `_fseq`(`_lhs`)
  6: freduce(value, `_function_list`)
  7: withVisible(function_list[[k]](value))
  8: function_list[[k]](value)
  9: gutenberg_download(.)
  10: gutenberg_get_mirror(verbose = verbose)
  11: readr::read_lines(wget_url)
  12: datasource(file, skip = skip)
  13: datasource_connection(file, skip, comment)
  14: datasource_raw(read_connection(path), skip, comment = comment)
  15: new_datasource("raw", text, skip = skip, comment = comment)
  16: structure(list(x, skip = skip, comment = comment, ...), class = c(paste0("source_", 
         type), "source"))
  17: read_connection(path)
  18: open(con, "rb")
  19: open.connection(con, "rb")
  
  == testthat results  ===========================================================
  OK: 33 SKIPPED: 1 FAILED: 3
  1. Error: gutenberg_get_mirror works (@test-download.R#8) 
  2. Error: Can download Charles Dickens' Christmas Carol and Jane Austen's Persuasion (@test-download.R#19) 
  3. Error: Can download books from a data frame with gutenberg_id column (@test-download.R#40) 
  
  Error: testthat unit tests failed
  In addition: Warning messages:
  1: In tryCatchList(expr, classes, parentenv, handlers) :
    closing unused connection 3 (http://www.gutenberg.org/robot/harvest?filetypes[]=txt)
  2: closing unused connection 4 (http://www.gutenberg.org/robot/harvest?filetypes[]=txt) 
  3: In get(name, envir = env) :
    closing unused connection 3 (http://www.gutenberg.org/robot/harvest?filetypes[]=txt)
  Execution halted