Running 'testthat.R' [3s/24s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > library(testthat)
  > library(etl)
  Loading required package: dplyr
  
  Attaching package: 'dplyr'
  
  The following object is masked from 'package:testthat':
  
      matches
  
  The following objects are masked from 'package:stats':
  
      filter, lag
  
  The following objects are masked from 'package:base':
  
      intersect, setdiff, setequal, union
  
  > 
  > test_check("etl")
  trying URL 'https://raw.githubusercontent.com/beanumber/etl/master/etl.Rproj'
  Content type 'text/plain; charset=utf-8' length 395 bytes
  ==================================================
  downloaded 395 bytes
  
  trying URL 'https://www.reddit.com/robots.txt'
  -- 1. Error: smart_download works (@test-etl.R#94)  ----------------------------
  cannot open URL 'https://www.reddit.com/robots.txt'
  1: expect_length(smart_download(cars, src = urls), 2) at testthat/test-etl.R:94
  2: quasi_label(enquo(object), arg = "object")
  3: eval_bare(get_expr(quo), get_env(quo))
  4: smart_download(cars, src = urls)
  5: mapply(downloader::download, src[missing], lcl[missing], ... = ...)
  6: (function (url, ...) 
     {
         if (grepl("^https?://", url)) {
             isR32 <- getRversion() >= "3.2"
             if (.Platform$OS.type == "windows") {
                 if (isR32) {
                     method <- "wininet"
                 }
                 else {
                     seti2 <- utils::"setInternet2"
                     internet2_start <- seti2(NA)
                     if (!internet2_start) {
                       on.exit(suppressWarnings(seti2(internet2_start)))
                       suppressWarnings(seti2(TRUE))
                     }
                     method <- "internal"
                 }
                 suppressWarnings(download.file(url, method = method, ...))
             }
             else {
                 if (isR32 && capabilities("libcurl")) {
                     method <- "libcurl"
                 }
                 else if (nzchar(Sys.which("wget")[1])) {
                     method <- "wget"
                 }
                 else if (nzchar(Sys.which("curl")[1])) {
                     method <- "curl"
                     orig_extra_options <- getOption("download.file.extra")
                     on.exit(options(download.file.extra = orig_extra_options))
                     options(download.file.extra = paste("-L", orig_extra_options))
                 }
                 else if (nzchar(Sys.which("lynx")[1])) {
                     method <- "lynx"
                 }
                 else {
                     stop("no download method found")
                 }
                 download.file(url, method = method, ...)
             }
         }
         else {
             download.file(url, ...)
         }
     })(dots[[1L]][[2L]], dots[[2L]][[2L]])
  7: download.file(url, method = method, ...)
  
  == testthat results  ===========================================================
  [ OK: 27 | SKIPPED: 0 | WARNINGS: 2 | FAILED: 1 ]
  1. Error: smart_download works (@test-etl.R#94) 
  
  Error: testthat unit tests failed
  Execution halted