Running ‘testthat.R’ [3s/5s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library("dat")
  Loading required package: aoos
  
  Attaching package: 'dat'
  
  The following object is masked from 'package:base':
  
      replace
  
  > 
  > if (requireNamespace("testthat", quietly = TRUE)) testthat::test_check("dat")
  ── 1. Error: Basic syntax of a DataFrame (@test-DataFrame.R#36)  ───────────────
  unnamed argument must extend either the S3 class or the class of the data part; not true of class "integer"
  1: expectIdentical(dat[~order(x), ], datRef[order(datRef$x), ]) at testthat/test-DataFrame.R:36
  2: testthat::expect_true(isIdentical(a, b)) at testthat/test-DataFrame.R:13
  3: quasi_label(enquo(object), label)
  4: eval_bare(get_expr(quo), get_env(quo))
  5: isIdentical(a, b)
  6: identical(unify(a), unify(b)) at testthat/test-DataFrame.R:9
  7: unify(a)
  8: as.data.frame(x) at testthat/test-DataFrame.R:5
  9: dat[~order(x), ]
  10: `[.DataFrame`(dat, ~order(x), )
  ...
  19: handleRows(., dispatcher(i))
  20: handleRows(x, eval(expr, envir = x, enclos = envir))
  21: eval(expr, envir = x, enclos = envir)
  22: eval(expr, envir = x, enclos = envir)
  23: new("OneSidedFormula", .S3Class = "formula", order(x))
  24: initialize(value, ...)
  25: initialize(value, ...)
  26: callNextMethod()
  27: .nextMethod(.Object = .Object, ... = ...)
  28: stop(gettextf("unnamed argument must extend either the S3 class or the class of the data part; not true of class %s", 
         dQuote(Classi)), domain = NA)
  
  ── 2. Error: make formulas (@test-makeFormulas.R#45)  ──────────────────────────
  unnamed argument must extend either the S3 class or the class of the data part; not true of class "integer"
  1: expectIdentical(dat3, mutar(dat, ~1:2, FL(x ~ mean(x)))) at testthat/test-makeFormulas.R:45
  2: testthat::expect_identical(a, b) at testthat/test-makeFormulas.R:8
  3: quasi_label(enquo(expected), expected.label)
  4: eval_bare(get_expr(quo), get_env(quo))
  5: mutar(dat, ~1:2, FL(x ~ mean(x)))
  6: x %>% memClassHandler$memClass() %>% handleRows(dispatcher(i)) %>% handleCols(dispatcher(i), 
         dispatcher(j), ..., by = by, sby = sby) %>% memClassHandler$wrapClass()
  7: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  8: eval(quote(`_fseq`(`_lhs`)), env, env)
  9: eval(quote(`_fseq`(`_lhs`)), env, env)
  10: `_fseq`(`_lhs`)
  ...
  14: handleRows(., dispatcher(i))
  15: handleRows(x, eval(expr, envir = x, enclos = envir))
  16: eval(expr, envir = x, enclos = envir)
  17: eval(expr, envir = x, enclos = envir)
  18: new("OneSidedFormula", .S3Class = "formula", 1:2)
  19: initialize(value, ...)
  20: initialize(value, ...)
  21: callNextMethod()
  22: .nextMethod(.Object = .Object, ... = ...)
  23: stop(gettextf("unnamed argument must extend either the S3 class or the class of the data part; not true of class %s", 
         dQuote(Classi)), domain = NA)
  
  ── 3. Error: mutars by and sby (@test-mutar.R#35)  ─────────────────────────────
  unnamed argument must extend either the S3 class or the class of the data part; not true of class "logical"
  1: expectIdentical(dat[~x > 5], filtar(dat, ~x > 5)) at testthat/test-mutar.R:35
  2: testthat::expect_true(isIdentical(a, b)) at testthat/test-mutar.R:14
  3: quasi_label(enquo(object), label)
  4: eval_bare(get_expr(quo), get_env(quo))
  5: isIdentical(a, b)
  6: identical(unify(a), unify(b)) at testthat/test-mutar.R:10
  7: unify(a)
  8: as.data.frame(x) at testthat/test-mutar.R:6
  9: dat[~x > 5]
  10: `[.DataFrame`(dat, ~x > 5)
  ...
  21: handleRows(x, j)
  22: handleRows(x, eval(expr, envir = x, enclos = envir))
  23: eval(expr, envir = x, enclos = envir)
  24: eval(expr, envir = x, enclos = envir)
  25: new("OneSidedFormula", .S3Class = "formula", x > 5)
  26: initialize(value, ...)
  27: initialize(value, ...)
  28: callNextMethod()
  29: .nextMethod(.Object = .Object, ... = ...)
  30: stop(gettextf("unnamed argument must extend either the S3 class or the class of the data part; not true of class %s", 
         dQuote(Classi)), domain = NA)
  
  ── 4. Error: S4 stuff (@test-mutar.R#60)  ──────────────────────────────────────
  unnamed argument must extend either the S3 class or the class of the data part; not true of class "logical"
  1: dat %<>% mutar(~x == 1) %>% mutar("^x$") %>% mutar(y ~ x) at testthat/test-mutar.R:60
  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: function_list[[i]](value)
  8: mutar(., ~x == 1)
  9: x %>% memClassHandler$memClass() %>% handleRows(dispatcher(i)) %>% handleCols(dispatcher(i), 
         dispatcher(j), ..., by = by, sby = sby) %>% memClassHandler$wrapClass()
  10: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  ...
  19: handleRows(x, j)
  20: handleRows(x, eval(expr, envir = x, enclos = envir))
  21: eval(expr, envir = x, enclos = envir)
  22: eval(expr, envir = x, enclos = envir)
  23: new("OneSidedFormula", .S3Class = "formula", x == 1)
  24: initialize(value, ...)
  25: initialize(value, ...)
  26: callNextMethod()
  27: .nextMethod(.Object = .Object, ... = ...)
  28: stop(gettextf("unnamed argument must extend either the S3 class or the class of the data part; not true of class %s", 
         dQuote(Classi)), domain = NA)
  
  ══ testthat results  ═══════════════════════════════════════════════════════════
  OK: 81 SKIPPED: 1 FAILED: 4
  1. Error: Basic syntax of a DataFrame (@test-DataFrame.R#36) 
  2. Error: make formulas (@test-makeFormulas.R#45) 
  3. Error: mutars by and sby (@test-mutar.R#35) 
  4. Error: S4 stuff (@test-mutar.R#60) 
  
  Error: testthat unit tests failed
  Execution halted