Running 'testthat.R' [5s/5s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > library(testthat)
  > library(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
  
  > library(rlang)
  
  Attaching package: 'rlang'
  
  The following objects are masked from 'package:testthat':
  
      is_false, is_null, is_true
  
  > library(ruler)
  > 
  > test_check("ruler")
  -- 1. Error: expose works (@test-expose.R#188)  --------------------------------
  Can't join on 'fun' x 'fun' because of incompatible types (list / list)
  1: expect_identical(get_exposure(expose_res_2), output_ref_2) at testthat/test-expose.R:188
  2: compare(act$val, exp$val)
  3: compare.default(act$val, exp$val)
  4: all.equal(x, y, ...)
  5: all.equal.default(x, y, ...)
  6: all.equal.list(target, current, ...)
  7: all.equal(target[[i]], current[[i]], check.attributes = check.attributes, use.names = use.names, 
         ...)
  8: all.equal.tbl_df(target[[i]], current[[i]], check.attributes = check.attributes, 
         use.names = use.names, ...)
  9: equal_data_frame(target, current, ignore_col_order = ignore_col_order, ignore_row_order = ignore_row_order, 
         convert = convert)
  
  -- 2. Error: expose preserves pack names (@test-expose.R#246)  -----------------
  Can't join on 'fun' x 'fun' because of incompatible types (list / list)
  1: expect_identical(output, output_ref) at testthat/test-expose.R:246
  2: compare(act$val, exp$val)
  3: compare.default(act$val, exp$val)
  4: all.equal(x, y, ...)
  5: all.equal.default(x, y, ...)
  6: all.equal.list(target, current, ...)
  7: all.equal(target[[i]], current[[i]], check.attributes = check.attributes, use.names = use.names, 
         ...)
  8: all.equal.tbl_df(target[[i]], current[[i]], check.attributes = check.attributes, 
         use.names = use.names, ...)
  9: equal_data_frame(target, current, ignore_col_order = ignore_col_order, ignore_row_order = ignore_row_order, 
         convert = convert)
  
  -- 3. Error: expose accounts for rule separator (@test-expose.R#264)  ----------
  Can't join on 'fun' x 'fun' because of incompatible types (list / list)
  1: expect_identical(output, output_ref) at testthat/test-expose.R:264
  2: compare(act$val, exp$val)
  3: compare.default(act$val, exp$val)
  4: all.equal(x, y, ...)
  5: all.equal.default(x, y, ...)
  6: all.equal.list(target, current, ...)
  7: all.equal(target[[i]], current[[i]], check.attributes = check.attributes, use.names = use.names, 
         ...)
  8: all.equal.tbl_df(target[[i]], current[[i]], check.attributes = check.attributes, 
         use.names = use.names, ...)
  9: equal_data_frame(target, current, ignore_col_order = ignore_col_order, ignore_row_order = ignore_row_order, 
         convert = convert)
  
  -- 4. Error: expose guesses (@test-expose.R#271)  ------------------------------
  (list) object cannot be coerced to type 'double'
  1: expect_expose_guesses(input_tbl, input_cell_pack) at testthat/test-expose.R:271
  2: expect_identical(input_tbl %>% expose(input_rule_pack, .guess = TRUE), input_tbl %>% 
         expose(.pack)) at testthat/test-expose.R:126
  3: quasi_label(enquo(object), label, arg = "object")
  4: eval_bare(get_expr(quo), get_env(quo))
  5: input_tbl %>% expose(input_rule_pack, .guess = TRUE)
  6: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  7: eval(quote(`_fseq`(`_lhs`)), env, env)
  8: eval(quote(`_fseq`(`_lhs`)), env, env)
  9: `_fseq`(`_lhs`)
  10: freduce(value, `_function_list`)
  ...
  34: mutate.tbl_df(unkey(.tbl), ...)
  35: mutate_impl(.data, dots, caller_env())
  36: (structure(function (...) 
     {
         base::pairlist(...)
         `_quo` <- rlang::quo(eval_tidy(~abs(. - mean(.))/sd(.) < 2))
         rlang::eval_bare(`_quo`, base::parent.frame())
     }, class = "inline_colwise_function", formula = ~abs(. - mean(.))/sd(.) < 2))(mpg)
  37: rlang::eval_bare(`_quo`, base::parent.frame())
  38: ~eval_tidy(~abs(. - mean(.))/sd(.) < 2)
  39: eval_tidy(~abs(. - mean(.))/sd(.) < 2)
  40: ~abs(. - mean(.))/sd(.) < 2
  41: sd(.)
  42: var(if (is.vector(x) || is.factor(x)) x else as.double(x), na.rm = na.rm)
  43: is.data.frame(x)
  
  -- 5. Error: expose_single.default guesses col pack (@test-expose.R#309)  ------
  Can't join on 'fun' x 'fun' because of incompatible types (list / list)
  1: expect_expose_single_default_works(.tbl = input_tbl_keyed, .pack = input_col_pack, 
         .report_with_remove = input_col_pack_report_with_remove, .report_no_remove = input_col_pack_report_no_remove) at testthat/test-expose.R:309
  2: expect_expose_single_works(.tbl = .tbl, .pack = .pack, .used_pack = input_rule_pack, 
         .rule_sep = .rule_sep, .report_with_remove = .report_with_remove, .report_no_remove = .report_no_remove) at testthat/test-expose.R:109
  3: expect_identical(expose_single(.tbl = .tbl, .pack = .used_pack, .rule_sep = .rule_sep, 
         .remove_obeyers = TRUE, .guess = TRUE), output_ref_remove) at testthat/test-expose.R:74
  4: compare(act$val, exp$val)
  5: compare.default(act$val, exp$val)
  6: all.equal(x, y, ...)
  7: all.equal.default(x, y, ...)
  8: all.equal.list(target, current, ...)
  9: all.equal(target[[i]], current[[i]], check.attributes = check.attributes, use.names = use.names, 
         ...)
  10: all.equal.tbl_df(target[[i]], current[[i]], check.attributes = check.attributes, 
         use.names = use.names, ...)
  11: equal_data_frame(target, current, ignore_col_order = ignore_col_order, ignore_row_order = ignore_row_order, 
         convert = convert)
  
  -- 6. Error: expose_single.default guesses cell pack (@test-expose.R#335)  -----
  (list) object cannot be coerced to type 'double'
  1: expect_expose_single_default_works(.tbl = input_tbl_keyed, .pack = input_cell_pack, 
         .report_with_remove = input_cell_pack_report_with_remove, .report_no_remove = input_cell_pack_report_no_remove) at testthat/test-expose.R:335
  2: expect_expose_single_works(.tbl = .tbl, .pack = .pack, .used_pack = input_rule_pack, 
         .rule_sep = .rule_sep, .report_with_remove = .report_with_remove, .report_no_remove = .report_no_remove) at testthat/test-expose.R:109
  3: expect_identical(expose_single(.tbl = .tbl, .pack = .used_pack, .rule_sep = .rule_sep, 
         .remove_obeyers = TRUE, .guess = TRUE), output_ref_remove) at testthat/test-expose.R:74
  4: quasi_label(enquo(object), label, arg = "object")
  5: eval_bare(get_expr(quo), get_env(quo))
  6: expose_single(.tbl = .tbl, .pack = .used_pack, .rule_sep = .rule_sep, .remove_obeyers = TRUE, 
         .guess = TRUE)
  7: expose_single.default(.tbl = .tbl, .pack = .used_pack, .rule_sep = .rule_sep, .remove_obeyers = TRUE, 
         .guess = TRUE)
  8: .pack(.tbl)
  9: freduce(value, `_function_list`)
  10: withVisible(function_list[[k]](value))
  ...
  22: mutate.tbl_df(unkey(.tbl), ...)
  23: mutate_impl(.data, dots, caller_env())
  24: (structure(function (...) 
     {
         base::pairlist(...)
         `_quo` <- rlang::quo(eval_tidy(~abs(. - mean(.))/sd(.) < 2))
         rlang::eval_bare(`_quo`, base::parent.frame())
     }, class = "inline_colwise_function", formula = ~abs(. - mean(.))/sd(.) < 2))(mpg)
  25: rlang::eval_bare(`_quo`, base::parent.frame())
  26: ~eval_tidy(~abs(. - mean(.))/sd(.) < 2)
  27: eval_tidy(~abs(. - mean(.))/sd(.) < 2)
  28: ~abs(. - mean(.))/sd(.) < 2
  29: sd(.)
  30: var(if (is.vector(x) || is.factor(x)) x else as.double(x), na.rm = na.rm)
  31: is.data.frame(x)
  
  -- 7. Error: expose_single.col_pack works (@test-expose.R#402)  ----------------
  Can't join on 'fun' x 'fun' because of incompatible types (list / list)
  1: expect_expose_single_works(.tbl = input_tbl_keyed, .pack = input_col_pack, .report_with_remove = input_col_pack_report_with_remove, 
         .report_no_remove = input_col_pack_report_no_remove) at testthat/test-expose.R:402
  2: expect_identical(expose_single(.tbl = .tbl, .pack = .used_pack, .rule_sep = .rule_sep, 
         .remove_obeyers = TRUE, .guess = TRUE), output_ref_remove) at testthat/test-expose.R:74
  3: compare(act$val, exp$val)
  4: compare.default(act$val, exp$val)
  5: all.equal(x, y, ...)
  6: all.equal.default(x, y, ...)
  7: all.equal.list(target, current, ...)
  8: all.equal(target[[i]], current[[i]], check.attributes = check.attributes, use.names = use.names, 
         ...)
  9: all.equal.tbl_df(target[[i]], current[[i]], check.attributes = check.attributes, 
         use.names = use.names, ...)
  10: equal_data_frame(target, current, ignore_col_order = ignore_col_order, ignore_row_order = ignore_row_order, 
         convert = convert)
  
  -- 8. Error: expose_single.cell_pack works (@test-expose.R#453)  ---------------
  (list) object cannot be coerced to type 'double'
  1: expect_expose_single_works(.tbl = input_tbl_keyed, .pack = input_cell_pack, .report_with_remove = input_cell_pack_report_with_remove, 
         .report_no_remove = input_cell_pack_report_no_remove) at testthat/test-expose.R:453
  2: expect_identical(expose_single(.tbl = .tbl, .pack = .used_pack, .rule_sep = .rule_sep, 
         .remove_obeyers = TRUE, .guess = TRUE), output_ref_remove) at testthat/test-expose.R:74
  3: quasi_label(enquo(object), label, arg = "object")
  4: eval_bare(get_expr(quo), get_env(quo))
  5: expose_single(.tbl = .tbl, .pack = .used_pack, .rule_sep = .rule_sep, .remove_obeyers = TRUE, 
         .guess = TRUE)
  6: expose_single.cell_pack(.tbl = .tbl, .pack = .used_pack, .rule_sep = .rule_sep, .remove_obeyers = TRUE, 
         .guess = TRUE)
  7: .tbl %>% .pack() %>% interp_cell_pack_out(.rule_sep = .rule_sep) %>% remove_obeyers(.do_remove = .remove_obeyers)
  8: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  9: eval(quote(`_fseq`(`_lhs`)), env, env)
  10: eval(quote(`_fseq`(`_lhs`)), env, env)
  ...
  28: mutate.tbl_df(unkey(.tbl), ...)
  29: mutate_impl(.data, dots, caller_env())
  30: (structure(function (...) 
     {
         base::pairlist(...)
         `_quo` <- rlang::quo(eval_tidy(~abs(. - mean(.))/sd(.) < 2))
         rlang::eval_bare(`_quo`, base::parent.frame())
     }, class = "inline_colwise_function", formula = ~abs(. - mean(.))/sd(.) < 2))(mpg)
  31: rlang::eval_bare(`_quo`, base::parent.frame())
  32: ~eval_tidy(~abs(. - mean(.))/sd(.) < 2)
  33: eval_tidy(~abs(. - mean(.))/sd(.) < 2)
  34: ~abs(. - mean(.))/sd(.) < 2
  35: sd(.)
  36: var(if (is.vector(x) || is.factor(x)) x else as.double(x), na.rm = na.rm)
  37: is.data.frame(x)
  
  == testthat results  ===========================================================
  OK: 278 SKIPPED: 1 WARNINGS: 3 FAILED: 8
  1. Error: expose works (@test-expose.R#188) 
  2. Error: expose preserves pack names (@test-expose.R#246) 
  3. Error: expose accounts for rule separator (@test-expose.R#264) 
  4. Error: expose guesses (@test-expose.R#271) 
  5. Error: expose_single.default guesses col pack (@test-expose.R#309) 
  6. Error: expose_single.default guesses cell pack (@test-expose.R#335) 
  7. Error: expose_single.col_pack works (@test-expose.R#402) 
  8. Error: expose_single.cell_pack works (@test-expose.R#453) 
  
  Error: testthat unit tests failed
  Execution halted