Running ‘run-all.R’ [3s/3s]
Running the tests in ‘tests/run-all.R’ failed.
Complete output:
  > library(testthat)
  > 
  > test_check("ProjectTemplate")
  Loading required package: ProjectTemplate
  Read 1 item
  .1
  Failed -------------------------------------------------------------------------
  1. Error: Full project (@test-create.R#76) -------------------------------------
  attempt to apply non-function
  1: suppressMessages(test.project()) at testthat/test-create.R:76
  2: withCallingHandlers(expr, message = function(c) invokeRestart("muffleMessage"))
  3: test.project()
  4: lapply(files, testthat::test_file, env = environment())
  5: FUN(X[[i]], ...)
  6: with_reporter(reporter = reporter, start_end_reporter = start_end_reporter, {
         lister$start_file(basename(path))
         source_file(path, new.env(parent = env), chdir = TRUE)
         end_context()
     })
  7: force(code)
  8: source_file(path, new.env(parent = env), chdir = TRUE)
  9: eval(exprs, env)
  10: eval(exprs, env)
  11: expect_that(1, equals(1)) at tests/1.R:3
  12: condition(object)
  13: expect_equal(x, expected, ..., expected.label = label)
  14: expect(comp$equal, sprintf("%s not equal to %s.\n%s", lab_act, lab_exp, comp$message), 
         info = info)
  15: withRestarts(if (expectation_broken(exp)) {
         stop(exp)
     } else {
         signalCondition(exp)
     }, continue_test = function(e) NULL)
  16: withOneRestart(expr, restarts[[1L]])
  17: doWithOneRestart(return(expr), restart)
  18: signalCondition(exp)
  19: (function (e) 
     {
         register_expectation(e, frame + 11, sys.nframe() - 6)
         invokeRestart("continue_test")
     })(structure(list(message = "1 not equal to 1.\nEqual\n", srcref = NULL), .Names = c("message", 
     "srcref"), class = c("expectation_success", "expectation", "condition")))
  20: register_expectation(e, frame + 11, sys.nframe() - 6)
  21: get_reporter()$add_result(context = get_reporter()$.context, test = test, result = e)
  22: o_apply(self$reporters, "add_result", context = context, test = test, result = result)
  23: lapply(objects, function(x) x[[method]](...))
  24: FUN(X[[i]], ...)
  25: x[[method]](...)
  
  DONE ===========================================================================
  .1
  Failed -------------------------------------------------------------------------
  1. Error: Test full project into existing directory (@test-create.R#111) -------
  attempt to apply non-function
  1: suppressMessages(test.project()) at testthat/test-create.R:111
  2: withCallingHandlers(expr, message = function(c) invokeRestart("muffleMessage"))
  3: test.project()
  4: lapply(files, testthat::test_file, env = environment())
  5: FUN(X[[i]], ...)
  6: with_reporter(reporter = reporter, start_end_reporter = start_end_reporter, {
         lister$start_file(basename(path))
         source_file(path, new.env(parent = env), chdir = TRUE)
         end_context()
     })
  7: force(code)
  8: source_file(path, new.env(parent = env), chdir = TRUE)
  9: eval(exprs, env)
  10: eval(exprs, env)
  11: expect_that(1, equals(1)) at tests/1.R:3
  12: condition(object)
  13: expect_equal(x, expected, ..., expected.label = label)
  14: expect(comp$equal, sprintf("%s not equal to %s.\n%s", lab_act, lab_exp, comp$message), 
         info = info)
  15: withRestarts(if (expectation_broken(exp)) {
         stop(exp)
     } else {
         signalCondition(exp)
     }, continue_test = function(e) NULL)
  16: withOneRestart(expr, restarts[[1L]])
  17: doWithOneRestart(return(expr), restart)
  18: signalCondition(exp)
  19: (function (e) 
     {
         register_expectation(e, frame + 11, sys.nframe() - 6)
         invokeRestart("continue_test")
     })(structure(list(message = "1 not equal to 1.\nEqual\n", srcref = NULL), .Names = c("message", 
     "srcref"), class = c("expectation_success", "expectation", "condition")))
  20: register_expectation(e, frame + 11, sys.nframe() - 6)
  21: get_reporter()$add_result(context = get_reporter()$.context, test = test, result = e)
  22: o_apply(self$reporters, "add_result", context = context, test = test, result = result)
  23: lapply(objects, function(x) x[[method]](...))
  24: FUN(X[[i]], ...)
  25: x[[method]](...)
  
  DONE ===========================================================================
  1. Failure: Example 37: SPSS Support with .sav Extension (@test-readers.R#734) -
  spss.reader(data.file, filename, variable.name) showed 0 warnings
  
  
  2. Failure: Example 38: SPSS Support with .sav Extension / Alternative Generation (@test-readers.R#756) 
  spss.reader(data.file, filename, variable.name) showed 0 warnings
  
  
  testthat results ================================================================
  OK: 428 SKIPPED: 0 FAILED: 2
  1. Failure: Example 37: SPSS Support with .sav Extension (@test-readers.R#734) 
  2. Failure: Example 38: SPSS Support with .sav Extension / Alternative Generation (@test-readers.R#756) 
  
  Error: testthat unit tests failed
  Execution halted