Running ‘testthat.R’ [1s/1s]
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")
  1. Error: sqlite works (@test-etl.R#7) -----------------------------------------
  The dbplyr package is required to communicate with database backends.
  1: etl("mtcars") at testthat/test-etl.R:7
  2: etl.default("mtcars")
  3: verify_con(db, dir)
  4: dplyr::src_sqlite(path = sqlite_file, create = TRUE)
  5: check_dbplyr()
  6: check_pkg("dbplyr", "communicate with database backends", install = FALSE)
  7: glubort(NULL, "The {name} package is required to {reason}.", if (install) "\nPlease install it with `install.packages(\"{name}\")`")
  8: .abort(text)
  
  2. Error: dplyr works (@test-etl.R#20) -----------------------------------------
  The dbplyr package is required to communicate with database backends.
  1: expect_message(cars <- etl("mtcars") %>% etl_create(), regexp = "success") at testthat/test-etl.R:20
  2: capture_messages(object)
  3: withCallingHandlers(code, message = function(condition) {
         out$push(condition)
         invokeRestart("muffleMessage")
     })
  4: etl("mtcars") %>% etl_create()
  5: eval(lhs, parent, parent)
  6: eval(lhs, parent, parent)
  7: etl("mtcars")
  8: etl.default("mtcars")
  9: verify_con(db, dir)
  10: dplyr::src_sqlite(path = sqlite_file, create = TRUE)
  11: check_dbplyr()
  12: check_pkg("dbplyr", "communicate with database backends", install = FALSE)
  13: glubort(NULL, "The {name} package is required to {reason}.", if (install) "\nPlease install it with `install.packages(\"{name}\")`")
  14: .abort(text)
  
  3. Error: etl works (@test-etl.R#93) -------------------------------------------
  The dbplyr package is required to communicate with database backends.
  1: expect_message(etl("mtcars", dir = file.path(tempdir(), "etltest")), "etltest") at testthat/test-etl.R:93
  2: capture_messages(object)
  3: withCallingHandlers(code, message = function(condition) {
         out$push(condition)
         invokeRestart("muffleMessage")
     })
  4: etl("mtcars", dir = file.path(tempdir(), "etltest"))
  5: etl.default("mtcars", dir = file.path(tempdir(), "etltest"))
  6: verify_con(db, dir)
  7: dplyr::src_sqlite(path = sqlite_file, create = TRUE)
  8: check_dbplyr()
  9: check_pkg("dbplyr", "communicate with database backends", install = FALSE)
  10: glubort(NULL, "The {name} package is required to {reason}.", if (install) "\nPlease install it with `install.packages(\"{name}\")`")
  11: .abort(text)
  
  4. Error: smart_download works (@test-etl.R#101) -------------------------------
  The dbplyr package is required to communicate with database backends.
  1: etl("mtcars") at testthat/test-etl.R:101
  2: etl.default("mtcars")
  3: verify_con(db, dir)
  4: dplyr::src_sqlite(path = sqlite_file, create = TRUE)
  5: check_dbplyr()
  6: check_pkg("dbplyr", "communicate with database backends", install = FALSE)
  7: glubort(NULL, "The {name} package is required to {reason}.", if (install) "\nPlease install it with `install.packages(\"{name}\")`")
  8: .abort(text)
  
  testthat results ================================================================
  OK: 5 SKIPPED: 0 FAILED: 4
  1. Error: sqlite works (@test-etl.R#7) 
  2. Error: dplyr works (@test-etl.R#20) 
  3. Error: etl works (@test-etl.R#93) 
  4. Error: smart_download works (@test-etl.R#101) 
  
  Error: testthat unit tests failed
  Execution halted