Running ‘testthat.R’ [5s/9s]
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#136)  ────────────────────────────────
  `~"id"` must be a function name (quoted or unquoted) or an unquoted call, not `~`
  1: input_tbl %>% expose(input_data_pack, list(my_row_pack = input_row_pack), .remove_obeyers = TRUE, 
         .guess = TRUE) at testthat/test-expose.R:136
  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: withVisible(function_list[[k]](value))
  8: function_list[[k]](value)
  9: expose(., input_data_pack, list(my_row_pack = input_row_pack), .remove_obeyers = TRUE, 
         .guess = TRUE)
  10: lapply(packs, expose_single, .tbl = tbl_keyed, .rule_sep = .rule_sep, .remove_obeyers = .remove_obeyers, 
         .guess = .guess) %>% impute_exposure_pack_names(.exposure_ref = present_exposure) %>% 
         add_pack_names() %>% bind_exposures()
  ...
  34: as_fun_list(.funs, enquo(.funs), caller_env(), ...)
  35: is_fun_list(.x)
  36: funs(~"id")
  37: map(dots, function(quo) as_fun(quo, default_env, .args))
  38: lapply(.x, .f, ...)
  39: FUN(X[[i]], ...)
  40: as_fun(quo, default_env, .args)
  41: bad_args(quo_text(expr), "must be a function name (quoted or unquoted) or an unquoted call, not {top_level}")
  42: glubort(fmt_args(args), ..., .envir = .envir)
  43: .abort(text)
  
  ── 2. Error: expose preserves pack names (@test-expose.R#218)  ─────────────────
  `~"id"` must be a function name (quoted or unquoted) or an unquoted call, not `~`
  1: input_tbl %>% expose(my_data_pack = input_data_pack, list(my_col_pack = input_col_pack), 
         list(list(my_row_pack = input_row_pack)), .remove_obeyers = TRUE) %>% get_exposure() at testthat/test-expose.R:218
  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: expose(., my_data_pack = input_data_pack, list(my_col_pack = input_col_pack), list(list(my_row_pack = input_row_pack)), 
         .remove_obeyers = TRUE)
  9: lapply(packs, expose_single, .tbl = tbl_keyed, .rule_sep = .rule_sep, .remove_obeyers = .remove_obeyers, 
         .guess = .guess) %>% impute_exposure_pack_names(.exposure_ref = present_exposure) %>% 
         add_pack_names() %>% bind_exposures()
  10: eval(lhs, parent, parent)
  ...
  33: as_fun_list(.funs, enquo(.funs), caller_env(), ...)
  34: is_fun_list(.x)
  35: funs(~"id")
  36: map(dots, function(quo) as_fun(quo, default_env, .args))
  37: lapply(.x, .f, ...)
  38: FUN(X[[i]], ...)
  39: as_fun(quo, default_env, .args)
  40: bad_args(quo_text(expr), "must be a function name (quoted or unquoted) or an unquoted call, not {top_level}")
  41: glubort(fmt_args(args), ..., .envir = .envir)
  42: .abort(text)
  
  ── 3. Error: expose guesses (@test-expose.R#270)  ──────────────────────────────
  `~"id"` must be a function name (quoted or unquoted) or an unquoted call, not `~`
  1: expect_expose_guesses(input_tbl, input_row_pack) at testthat/test-expose.R:270
  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)
  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: as_fun_list(.funs, enquo(.funs), caller_env(), ...)
  35: is_fun_list(.x)
  36: funs(~"id")
  37: map(dots, function(quo) as_fun(quo, default_env, .args))
  38: lapply(.x, .f, ...)
  39: FUN(X[[i]], ...)
  40: as_fun(quo, default_env, .args)
  41: bad_args(quo_text(expr), "must be a function name (quoted or unquoted) or an unquoted call, not {top_level}")
  42: glubort(fmt_args(args), ..., .envir = .envir)
  43: .abort(text)
  
  ── 4. Error: expose_single.default guesses row pack (@test-expose.R#326)  ──────
  `~"id"` must be a function name (quoted or unquoted) or an unquoted call, not `~`
  1: expect_expose_single_default_works(.tbl = input_tbl_keyed, .pack = input_row_pack, 
         .report_with_remove = input_row_pack_report_with_remove, .report_no_remove = input_row_pack_report_no_remove) at testthat/test-expose.R:326
  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)
  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: switch(pack_out_type, data_pack = interp_data_pack_out(pack_out), group_pack = interp_group_pack_out(.pack_out = pack_out, 
         .group_vars = pack_group_vars, .group_sep = pack_group_sep), col_pack = interp_col_pack_out(pack_out, 
         .rule_sep), row_pack = interp_row_pack_out(pack_out), cell_pack = interp_cell_pack_out(pack_out, 
         .rule_sep)) %>% remove_obeyers(.do_remove = .remove_obeyers)
  9: eval(lhs, parent, parent)
  10: eval(lhs, parent, parent)
  ...
  22: as_fun_list(.funs, enquo(.funs), caller_env(), ...)
  23: is_fun_list(.x)
  24: funs(~"id")
  25: map(dots, function(quo) as_fun(quo, default_env, .args))
  26: lapply(.x, .f, ...)
  27: FUN(X[[i]], ...)
  28: as_fun(quo, default_env, .args)
  29: bad_args(quo_text(expr), "must be a function name (quoted or unquoted) or an unquoted call, not {top_level}")
  30: glubort(fmt_args(args), ..., .envir = .envir)
  31: .abort(text)
  
  ── 5. Error: expose_single.default guesses cell pack (@test-expose.R#335)  ─────
  `~"id"` must be a function name (quoted or unquoted) or an unquoted call, not `~`
  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)
  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: switch(pack_out_type, data_pack = interp_data_pack_out(pack_out), group_pack = interp_group_pack_out(.pack_out = pack_out, 
         .group_vars = pack_group_vars, .group_sep = pack_group_sep), col_pack = interp_col_pack_out(pack_out, 
         .rule_sep), row_pack = interp_row_pack_out(pack_out), cell_pack = interp_cell_pack_out(pack_out, 
         .rule_sep)) %>% remove_obeyers(.do_remove = .remove_obeyers)
  9: eval(lhs, parent, parent)
  10: eval(lhs, parent, parent)
  ...
  22: as_fun_list(.funs, enquo(.funs), caller_env(), ...)
  23: is_fun_list(.x)
  24: funs(~"id")
  25: map(dots, function(quo) as_fun(quo, default_env, .args))
  26: lapply(.x, .f, ...)
  27: FUN(X[[i]], ...)
  28: as_fun(quo, default_env, .args)
  29: bad_args(quo_text(expr), "must be a function name (quoted or unquoted) or an unquoted call, not {top_level}")
  30: glubort(fmt_args(args), ..., .envir = .envir)
  31: .abort(text)
  
  ── 6. Error: expose_single.row_pack works (@test-expose.R#437)  ────────────────
  `~"id"` must be a function name (quoted or unquoted) or an unquoted call, not `~`
  1: expect_expose_single_works(.tbl = input_tbl_keyed, .pack = input_row_pack, .report_with_remove = input_row_pack_report_with_remove, 
         .report_no_remove = input_row_pack_report_no_remove) at testthat/test-expose.R:437
  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)
  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.row_pack(.tbl = .tbl, .pack = .used_pack, .rule_sep = .rule_sep, .remove_obeyers = TRUE, 
         .guess = TRUE)
  7: .tbl %>% .pack() %>% interp_row_pack_out() %>% 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)
  ...
  25: as_fun_list(.funs, enquo(.funs), caller_env(), ...)
  26: is_fun_list(.x)
  27: funs(~"id")
  28: map(dots, function(quo) as_fun(quo, default_env, .args))
  29: lapply(.x, .f, ...)
  30: FUN(X[[i]], ...)
  31: as_fun(quo, default_env, .args)
  32: bad_args(quo_text(expr), "must be a function name (quoted or unquoted) or an unquoted call, not {top_level}")
  33: glubort(fmt_args(args), ..., .envir = .envir)
  34: .abort(text)
  
  ── 7. Error: expose_single.cell_pack works (@test-expose.R#453)  ───────────────
  `~"id"` must be a function name (quoted or unquoted) or an unquoted call, not `~`
  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)
  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)
  ...
  25: as_fun_list(.funs, enquo(.funs), caller_env(), ...)
  26: is_fun_list(.x)
  27: funs(~"id")
  28: map(dots, function(quo) as_fun(quo, default_env, .args))
  29: lapply(.x, .f, ...)
  30: FUN(X[[i]], ...)
  31: as_fun(quo, default_env, .args)
  32: bad_args(quo_text(expr), "must be a function name (quoted or unquoted) or an unquoted call, not {top_level}")
  33: glubort(fmt_args(args), ..., .envir = .envir)
  34: .abort(text)
  
  ── 8. Error: interp_row_pack_out works (@test-expose.R#602)  ───────────────────
  `~"id"` must be a function name (quoted or unquoted) or an unquoted call, not `~`
  1: expect_identical(interp_row_pack_out(input_row_pack_out), output_ref) at testthat/test-expose.R:602
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: interp_row_pack_out(input_row_pack_out)
  5: .pack_out %>% as_tibble() %>% restore_keys_at(.vars = ".id", .funs = funs(~"id"), 
         .remove = TRUE, .unkey = TRUE) %>% tidyr::gather(key = "rule", value = "value", 
         !!!rlang::syms(colnames(.pack_out))) %>% mutate(var = ".all") %>% select(.data$rule, 
         .data$var, .data$id, .data$value)
  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`)
  ...
  15: as_fun_list(.funs, enquo(.funs), caller_env(), ...)
  16: is_fun_list(.x)
  17: funs(~"id")
  18: map(dots, function(quo) as_fun(quo, default_env, .args))
  19: lapply(.x, .f, ...)
  20: FUN(X[[i]], ...)
  21: as_fun(quo, default_env, .args)
  22: bad_args(quo_text(expr), "must be a function name (quoted or unquoted) or an unquoted call, not {top_level}")
  23: glubort(fmt_args(args), ..., .envir = .envir)
  24: .abort(text)
  
  ── 9. Error: interp_cell_pack_out works (@test-expose.R#620)  ──────────────────
  `~"id"` must be a function name (quoted or unquoted) or an unquoted call, not `~`
  1: expect_identical(interp_cell_pack_out(input_cell_pack_out, inside_punct("\\._\\.")), 
         output_ref) at testthat/test-expose.R:620
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: interp_cell_pack_out(input_cell_pack_out, inside_punct("\\._\\."))
  5: .pack_out %>% as_tibble() %>% restore_keys_at(.vars = ".id", .funs = funs(~"id"), 
         .remove = TRUE, .unkey = TRUE) %>% tidyr::gather(key = "var_rule", value = "value", 
         !!!rlang::syms(colnames(.pack_out))) %>% tidyr::separate(col = "var_rule", into = c("var", 
         "rule"), sep = .rule_sep) %>% select(.data$rule, .data$var, .data$id, .data$value)
  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`)
  ...
  15: as_fun_list(.funs, enquo(.funs), caller_env(), ...)
  16: is_fun_list(.x)
  17: funs(~"id")
  18: map(dots, function(quo) as_fun(quo, default_env, .args))
  19: lapply(.x, .f, ...)
  20: FUN(X[[i]], ...)
  21: as_fun(quo, default_env, .args)
  22: bad_args(quo_text(expr), "must be a function name (quoted or unquoted) or an unquoted call, not {top_level}")
  23: glubort(fmt_args(args), ..., .envir = .envir)
  24: .abort(text)
  
  ══ testthat results  ═══════════════════════════════════════════════════════════
  OK: 276 SKIPPED: 0 FAILED: 9
  1. Error: expose works (@test-expose.R#136) 
  2. Error: expose preserves pack names (@test-expose.R#218) 
  3. Error: expose guesses (@test-expose.R#270) 
  4. Error: expose_single.default guesses row pack (@test-expose.R#326) 
  5. Error: expose_single.default guesses cell pack (@test-expose.R#335) 
  6. Error: expose_single.row_pack works (@test-expose.R#437) 
  7. Error: expose_single.cell_pack works (@test-expose.R#453) 
  8. Error: interp_row_pack_out works (@test-expose.R#602) 
  9. Error: interp_cell_pack_out works (@test-expose.R#620) 
  
  Error: testthat unit tests failed
  Execution halted