Running ‘testthat.R’ [4s/7s]
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(keyholder)
  
  Attaching package: 'keyholder'
  
  The following object is masked from 'package:stats':
  
      filter
  
  > 
  > test_check("keyholder")
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error (test-id.R:6:3): use_id works ─────────────────────────────────────────
  <tibble_error_enframe_must_be_vector/tibble_error/rlang_error/error/condition>
  Error: The `x` argument to `enframe()` must be a vector, not tbl_df.
  Backtrace:
      █
   1. ├─mtcars %>% use_id() test-id.R:6:2
   2. └─keyholder::use_id(.)
   3.   └─keyholder::assign_keys(.tbl, tibble(.id = seq_len(nrow(.tbl))))
   4.     └─keyholder::`keys<-`(`*tmp*`, value = value)
   5.       └─tibble::enframe(value, name = NULL, value = "value")
  ── Error (test-id.R:65:3): key_by_id works ─────────────────────────────────────
  <tibble_error_enframe_must_be_vector/tibble_error/rlang_error/error/condition>
  Error: The `x` argument to `enframe()` must be a vector, not tbl_df.
  Backtrace:
      █
   1. ├─keyholder::key_by_id(input_1) test-id.R:65:2
   2. │ └─.tbl %>% key_by(!!rlang::sym(id_name), .add = .add, .exclude = .exclude)
   3. ├─keyholder::key_by(., !!rlang::sym(id_name), .add = .add, .exclude = .exclude)
   4. └─keyholder:::key_by.default(...)
   5.   └─keyholder:::key_by_impl(...)
   6.     └─keyholder::`keys<-`(`*tmp*`, value = cur_keys)
   7.       └─tibble::enframe(value, name = NULL, value = "value")
  ── Error (test-id.R:80:3): key_by_id works on grouped_df ───────────────────────
  <tibble_error_enframe_must_be_vector/tibble_error/rlang_error/error/condition>
  Error: The `x` argument to `enframe()` must be a vector, not tbl_df.
  Backtrace:
      █
   1. ├─input_1 %>% group_by(vs, am) %>% key_by_id() test-id.R:80:2
   2. ├─keyholder::key_by_id(.)
   3. │ └─.tbl %>% key_by(!!rlang::sym(id_name), .add = .add, .exclude = .exclude)
   4. ├─keyholder::key_by(., !!rlang::sym(id_name), .add = .add, .exclude = .exclude)
   5. └─keyholder:::key_by.default(...)
   6.   └─keyholder:::key_by_impl(...)
   7.     └─keyholder::`keys<-`(`*tmp*`, value = cur_keys)
   8.       └─tibble::enframe(value, name = NULL, value = "value")
  ── Error (test-id.R:124:3): key_by_id handles .add and .exclude arguments ──────
  <tibble_error_enframe_must_be_vector/tibble_error/rlang_error/error/condition>
  Error: The `x` argument to `enframe()` must be a vector, not tbl_df.
  Backtrace:
      █
   1. ├─`%>%`(...) test-id.R:124:2
   2. ├─keyholder::key_by(., .id1, .exclude = TRUE)
   3. └─keyholder:::key_by.default(., .id1, .exclude = TRUE)
   4.   └─keyholder:::key_by_impl(...)
   5.     └─keyholder::`keys<-`(`*tmp*`, value = cur_keys)
   6.       └─tibble::enframe(value, name = NULL, value = "value")
  ── Error (test-keyed-df-one-tbl.R:49:3): select.keyed_df works ─────────────────
  <tibble_error_enframe_must_be_vector/tibble_error/rlang_error/error/condition>
  Error: The `x` argument to `enframe()` must be a vector, not tbl_df.
  Backtrace:
       █
    1. ├─keyholder:::expect_commute_with_keys(mtcars_df, select_f) test-keyed-df-one-tbl.R:49:2
    2. │ └─keyholder:::expect_commute(...) test-keyed-df-one-tbl.R:27:2
    3. │   └─input %>% .f1 %>% .f2 test-keyed-df-one-tbl.R:16:2
    4. └─magrittr:::.f2(.)
    5.   └─magrittr::freduce(value, `_function_list`)
    6.     ├─base::withVisible(function_list[[k]](value))
    7.     └─function_list[[k]](value)
    8.       └─keyholder::assign_keys(., keys_mtcars)
    9.         └─keyholder::`keys<-`(`*tmp*`, value = value)
   10.           └─tibble::enframe(value, name = NULL, value = "value")
  ── Error (test-keyed-df-one-tbl.R:58:3): select_all works ──────────────────────
  <tibble_error_enframe_must_be_vector/tibble_error/rlang_error/error/condition>
  Error: The `x` argument to `enframe()` must be a vector, not tbl_df.
  Backtrace:
       █
    1. ├─keyholder:::expect_commute_with_keys(mtcars_df, select_all_f) test-keyed-df-one-tbl.R:58:2
    2. │ └─keyholder:::expect_commute(...) test-keyed-df-one-tbl.R:27:2
    3. │   └─input %>% .f1 %>% .f2 test-keyed-df-one-tbl.R:16:2
    4. └─magrittr:::.f2(.)
    5.   └─magrittr::freduce(value, `_function_list`)
    6.     ├─base::withVisible(function_list[[k]](value))
    7.     └─function_list[[k]](value)
    8.       └─keyholder::assign_keys(., keys_mtcars)
    9.         └─keyholder::`keys<-`(`*tmp*`, value = value)
   10.           └─tibble::enframe(value, name = NULL, value = "value")
  ── Error (test-keyed-df-one-tbl.R:68:3): select_if works ───────────────────────
  <tibble_error_enframe_must_be_vector/tibble_error/rlang_error/error/condition>
  Error: The `x` argument to `enframe()` must be a vector, not tbl_df.
  Backtrace:
       █
    1. ├─keyholder:::expect_commute_with_keys(mtcars_df, select_if_f) test-keyed-df-one-tbl.R:68:2
    2. │ └─keyholder:::expect_commute(...) test-keyed-df-one-tbl.R:27:2
    3. │   └─input %>% .f1 %>% .f2 test-keyed-df-one-tbl.R:16:2
    4. └─magrittr:::.f2(.)
    5.   └─magrittr::freduce(value, `_function_list`)
    6.     ├─base::withVisible(function_list[[k]](value))
    7.     └─function_list[[k]](value)
    8.       └─keyholder::assign_keys(., keys_mtcars)
    9.         └─keyholder::`keys<-`(`*tmp*`, value = value)
   10.           └─tibble::enframe(value, name = NULL, value = "value")
  ── Error (test-keyed-df-one-tbl.R:77:3): select_at works ───────────────────────
  <tibble_error_enframe_must_be_vector/tibble_error/rlang_error/error/condition>
  Error: The `x` argument to `enframe()` must be a vector, not tbl_df.
  Backtrace:
       █
    1. ├─keyholder:::expect_commute_with_keys(mtcars_df, select_at_f) test-keyed-df-one-tbl.R:77:2
    2. │ └─keyholder:::expect_commute(...) test-keyed-df-one-tbl.R:27:2
    3. │   └─input %>% .f1 %>% .f2 test-keyed-df-one-tbl.R:16:2
    4. └─magrittr:::.f2(.)
    5.   └─magrittr::freduce(value, `_function_list`)
    6.     ├─base::withVisible(function_list[[k]](value))
    7.     └─function_list[[k]](value)
    8.       └─keyholder::assign_keys(., keys_mtcars)
    9.         └─keyholder::`keys<-`(`*tmp*`, value = value)
   10.           └─tibble::enframe(value, name = NULL, value = "value")
  ── Error (test-keyed-df-one-tbl.R:88:3): rename.keyed_df works ─────────────────
  <tibble_error_enframe_must_be_vector/tibble_error/rlang_error/error/condition>
  Error: The `x` argument to `enframe()` must be a vector, not tbl_df.
  Backtrace:
       █
    1. ├─keyholder:::expect_commute_with_keys(mtcars_df, rename_f) test-keyed-df-one-tbl.R:88:2
    2. │ └─keyholder:::expect_commute(...) test-keyed-df-one-tbl.R:27:2
    3. │   └─input %>% .f1 %>% .f2 test-keyed-df-one-tbl.R:16:2
    4. └─magrittr:::.f2(.)
    5.   └─magrittr::freduce(value, `_function_list`)
    6.     ├─base::withVisible(function_list[[k]](value))
    7.     └─function_list[[k]](value)
    8.       └─keyholder::assign_keys(., keys_mtcars)
    9.         └─keyholder::`keys<-`(`*tmp*`, value = value)
   10.           └─tibble::enframe(value, name = NULL, value = "value")
  ── Error (test-keyed-df-one-tbl.R:97:3): rename_all works ──────────────────────
  <tibble_error_enframe_must_be_vector/tibble_error/rlang_error/error/condition>
  Error: The `x` argument to `enframe()` must be a vector, not tbl_df.
  Backtrace:
       █
    1. ├─keyholder:::expect_commute_with_keys(mtcars_df, rename_all_f) test-keyed-df-one-tbl.R:97:2
    2. │ └─keyholder:::expect_commute(...) test-keyed-df-one-tbl.R:27:2
    3. │   └─input %>% .f1 %>% .f2 test-keyed-df-one-tbl.R:16:2
    4. └─magrittr:::.f2(.)
    5.   └─magrittr::freduce(value, `_function_list`)
    6.     ├─base::withVisible(function_list[[k]](value))
    7.     └─function_list[[k]](value)
    8.       └─keyholder::assign_keys(., keys_mtcars)
    9.         └─keyholder::`keys<-`(`*tmp*`, value = value)
   10.           └─tibble::enframe(value, name = NULL, value = "value")
  ── Error (test-keyed-df-one-tbl.R:107:3): rename_if works ──────────────────────
  <tibble_error_enframe_must_be_vector/tibble_error/rlang_error/error/condition>
  Error: The `x` argument to `enframe()` must be a vector, not tbl_df.
  Backtrace:
       █
    1. ├─keyholder:::expect_commute_with_keys(mtcars_df, rename_if_f) test-keyed-df-one-tbl.R:107:2
    2. │ └─keyholder:::expect_commute(...) test-keyed-df-one-tbl.R:27:2
    3. │   └─input %>% .f1 %>% .f2 test-keyed-df-one-tbl.R:16:2
    4. └─magrittr:::.f2(.)
    5.   └─magrittr::freduce(value, `_function_list`)
    6.     ├─base::withVisible(function_list[[k]](value))
    7.     └─function_list[[k]](value)
    8.       └─keyholder::assign_keys(., keys_mtcars)
    9.         └─keyholder::`keys<-`(`*tmp*`, value = value)
   10.           └─tibble::enframe(value, name = NULL, value = "value")
  ── Error (test-keyed-df-one-tbl.R:116:3): rename_at works ──────────────────────
  <tibble_error_enframe_must_be_vector/tibble_error/rlang_error/error/condition>
  Error: The `x` argument to `enframe()` must be a vector, not tbl_df.
  Backtrace:
       █
    1. ├─keyholder:::expect_commute_with_keys(mtcars_df, rename_at_f) test-keyed-df-one-tbl.R:116:2
    2. │ └─keyholder:::expect_commute(...) test-keyed-df-one-tbl.R:27:2
    3. │   └─input %>% .f1 %>% .f2 test-keyed-df-one-tbl.R:16:2
    4. └─magrittr:::.f2(.)
    5.   └─magrittr::freduce(value, `_function_list`)
    6.     ├─base::withVisible(function_list[[k]](value))
    7.     └─function_list[[k]](value)
    8.       └─keyholder::assign_keys(., keys_mtcars)
    9.         └─keyholder::`keys<-`(`*tmp*`, value = value)
   10.           └─tibble::enframe(value, name = NULL, value = "value")
  ── Error (test-keyed-df-one-tbl.R:127:3): mutate.keyed_df works ────────────────
  <tibble_error_enframe_must_be_vector/tibble_error/rlang_error/error/condition>
  Error: The `x` argument to `enframe()` must be a vector, not tbl_df.
  Backtrace:
       █
    1. ├─keyholder:::expect_commute_with_keys(mtcars_df, mutate_f) test-keyed-df-one-tbl.R:127:2
    2. │ └─keyholder:::expect_commute(...) test-keyed-df-one-tbl.R:27:2
    3. │   └─input %>% .f1 %>% .f2 test-keyed-df-one-tbl.R:16:2
    4. └─magrittr:::.f2(.)
    5.   └─magrittr::freduce(value, `_function_list`)
    6.     ├─base::withVisible(function_list[[k]](value))
    7.     └─function_list[[k]](value)
    8.       └─keyholder::assign_keys(., keys_mtcars)
    9.         └─keyholder::`keys<-`(`*tmp*`, value = value)
   10.           └─tibble::enframe(value, name = NULL, value = "value")
  ── Error (test-keyed-df-one-tbl.R:136:3): mutate_all works ─────────────────────
  <tibble_error_enframe_must_be_vector/tibble_error/rlang_error/error/condition>
  Error: The `x` argument to `enframe()` must be a vector, not tbl_df.
  Backtrace:
       █
    1. ├─keyholder:::expect_commute_with_keys(mtcars_df, mutate_all_f) test-keyed-df-one-tbl.R:136:2
    2. │ └─keyholder:::expect_commute(...) test-keyed-df-one-tbl.R:27:2
    3. │   └─input %>% .f1 %>% .f2 test-keyed-df-one-tbl.R:16:2
    4. └─magrittr:::.f2(.)
    5.   └─magrittr::freduce(value, `_function_list`)
    6.     ├─base::withVisible(function_list[[k]](value))
    7.     └─function_list[[k]](value)
    8.       └─keyholder::assign_keys(., keys_mtcars)
    9.         └─keyholder::`keys<-`(`*tmp*`, value = value)
   10.           └─tibble::enframe(value, name = NULL, value = "value")
  ── Error (test-keyed-df-one-tbl.R:145:3): mutate_if works ──────────────────────
  <tibble_error_enframe_must_be_vector/tibble_error/rlang_error/error/condition>
  Error: The `x` argument to `enframe()` must be a vector, not tbl_df.
  Backtrace:
       █
    1. ├─keyholder:::expect_commute_with_keys(mtcars_df, mutate_if_f) test-keyed-df-one-tbl.R:145:2
    2. │ └─keyholder:::expect_commute(...) test-keyed-df-one-tbl.R:27:2
    3. │   └─input %>% .f1 %>% .f2 test-keyed-df-one-tbl.R:16:2
    4. └─magrittr:::.f2(.)
    5.   └─magrittr::freduce(value, `_function_list`)
    6.     ├─base::withVisible(function_list[[k]](value))
    7.     └─function_list[[k]](value)
    8.       └─keyholder::assign_keys(., keys_mtcars)
    9.         └─keyholder::`keys<-`(`*tmp*`, value = value)
   10.           └─tibble::enframe(value, name = NULL, value = "value")
  ── Error (test-keyed-df-one-tbl.R:154:3): mutate_at works ──────────────────────
  <tibble_error_enframe_must_be_vector/tibble_error/rlang_error/error/condition>
  Error: The `x` argument to `enframe()` must be a vector, not tbl_df.
  Backtrace:
       █
    1. ├─keyholder:::expect_commute_with_keys(mtcars_df, mutate_at_f) test-keyed-df-one-tbl.R:154:2
    2. │ └─keyholder:::expect_commute(...) test-keyed-df-one-tbl.R:27:2
    3. │   └─input %>% .f1 %>% .f2 test-keyed-df-one-tbl.R:16:2
    4. └─magrittr:::.f2(.)
    5.   └─magrittr::freduce(value, `_function_list`)
    6.     ├─base::withVisible(function_list[[k]](value))
    7.     └─function_list[[k]](value)
    8.       └─keyholder::assign_keys(., keys_mtcars)
    9.         └─keyholder::`keys<-`(`*tmp*`, value = value)
   10.           └─tibble::enframe(value, name = NULL, value = "value")
  ── Error (test-keyed-df-one-tbl.R:165:3): transmute.keyed_df works ─────────────
  <tibble_error_enframe_must_be_vector/tibble_error/rlang_error/error/condition>
  Error: The `x` argument to `enframe()` must be a vector, not tbl_df.
  Backtrace:
       █
    1. ├─keyholder:::expect_commute_with_keys(mtcars_df, transmute_f) test-keyed-df-one-tbl.R:165:2
    2. │ └─keyholder:::expect_commute(...) test-keyed-df-one-tbl.R:27:2
    3. │   └─input %>% .f1 %>% .f2 test-keyed-df-one-tbl.R:16:2
    4. └─magrittr:::.f2(.)
    5.   └─magrittr::freduce(value, `_function_list`)
    6.     ├─base::withVisible(function_list[[k]](value))
    7.     └─function_list[[k]](value)
    8.       └─keyholder::assign_keys(., keys_mtcars)
    9.         └─keyholder::`keys<-`(`*tmp*`, value = value)
   10.           └─tibble::enframe(value, name = NULL, value = "value")
  ── Error (test-keyed-df-one-tbl.R:174:3): transmute_all works ──────────────────
  <tibble_error_enframe_must_be_vector/tibble_error/rlang_error/error/condition>
  Error: The `x` argument to `enframe()` must be a vector, not tbl_df.
  Backtrace:
       █
    1. ├─keyholder:::expect_commute_with_keys(mtcars_df, transmute_all_f) test-keyed-df-one-tbl.R:174:2
    2. │ └─keyholder:::expect_commute(...) test-keyed-df-one-tbl.R:27:2
    3. │   └─input %>% .f1 %>% .f2 test-keyed-df-one-tbl.R:16:2
    4. └─magrittr:::.f2(.)
    5.   └─magrittr::freduce(value, `_function_list`)
    6.     ├─base::withVisible(function_list[[k]](value))
    7.     └─function_list[[k]](value)
    8.       └─keyholder::assign_keys(., keys_mtcars)
    9.         └─keyholder::`keys<-`(`*tmp*`, value = value)
   10.           └─tibble::enframe(value, name = NULL, value = "value")
  ── Error (test-keyed-df-one-tbl.R:183:3): transmute_if works ───────────────────
  <tibble_error_enframe_must_be_vector/tibble_error/rlang_error/error/condition>
  Error: The `x` argument to `enframe()` must be a vector, not tbl_df.
  Backtrace:
       █
    1. ├─keyholder:::expect_commute_with_keys(mtcars_df, transmute_if_f) test-keyed-df-one-tbl.R:183:2
    2. │ └─keyholder:::expect_commute(...) test-keyed-df-one-tbl.R:27:2
    3. │   └─input %>% .f1 %>% .f2 test-keyed-df-one-tbl.R:16:2
    4. └─magrittr:::.f2(.)
    5.   └─magrittr::freduce(value, `_function_list`)
    6.     ├─base::withVisible(function_list[[k]](value))
    7.     └─function_list[[k]](value)
    8.       └─keyholder::assign_keys(., keys_mtcars)
    9.         └─keyholder::`keys<-`(`*tmp*`, value = value)
   10.           └─tibble::enframe(value, name = NULL, value = "value")
  ── Error (test-keyed-df-one-tbl.R:192:3): transmute_at works ───────────────────
  <tibble_error_enframe_must_be_vector/tibble_error/rlang_error/error/condition>
  Error: The `x` argument to `enframe()` must be a vector, not tbl_df.
  Backtrace:
       █
    1. ├─keyholder:::expect_commute_with_keys(mtcars_df, transmute_at_f) test-keyed-df-one-tbl.R:192:2
    2. │ └─keyholder:::expect_commute(...) test-keyed-df-one-tbl.R:27:2
    3. │   └─input %>% .f1 %>% .f2 test-keyed-df-one-tbl.R:16:2
    4. └─magrittr:::.f2(.)
    5.   └─magrittr::freduce(value, `_function_list`)
    6.     ├─base::withVisible(function_list[[k]](value))
    7.     └─function_list[[k]](value)
    8.       └─keyholder::assign_keys(., keys_mtcars)
    9.         └─keyholder::`keys<-`(`*tmp*`, value = value)
   10.           └─tibble::enframe(value, name = NULL, value = "value")
  ── Error (test-keyed-df-one-tbl.R:203:3): summarise.keyed_df works ─────────────
  <tibble_error_enframe_must_be_vector/tibble_error/rlang_error/error/condition>
  Error: The `x` argument to `enframe()` must be a vector, not tbl_df.
  Backtrace:
       █
    1. ├─testthat::expect_false(...) test-keyed-df-one-tbl.R:203:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─mtcars_df %>% key_by(vs) %>% summarise_f() %>% is_keyed_df()
    5. ├─keyholder::is_keyed_df(.)
    6. ├─magrittr:::summarise_f(.)
    7. │ └─magrittr::freduce(value, `_function_list`)
    8. │   ├─base::withVisible(function_list[[k]](value))
    9. │   └─function_list[[k]](value)
   10. │     └─dplyr::summarise(., meanGear = mean(gear))
   11. ├─keyholder::key_by(., vs)
   12. └─keyholder:::key_by.default(., vs)
   13.   └─keyholder:::key_by_impl(...)
   14.     └─keyholder::`keys<-`(`*tmp*`, value = cur_keys)
   15.       └─tibble::enframe(value, name = NULL, value = "value")
  ── Error (test-keyed-df-one-tbl.R:214:3): summarise_all works ──────────────────
  <tibble_error_enframe_must_be_vector/tibble_error/rlang_error/error/condition>
  Error: The `x` argument to `enframe()` must be a vector, not tbl_df.
  Backtrace:
       █
    1. ├─testthat::expect_false(...) test-keyed-df-one-tbl.R:214:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─mtcars_df %>% key_by(vs) %>% summarise_all_f() %>% is_keyed_df()
    5. ├─keyholder::is_keyed_df(.)
    6. ├─magrittr:::summarise_all_f(.)
    7. │ └─magrittr::freduce(value, `_function_list`)
    8. │   ├─base::withVisible(function_list[[k]](value))
    9. │   └─function_list[[k]](value)
   10. │     └─dplyr::summarise_all(., list(~n()))
   11. │       └─dplyr:::manip_all(...)
   12. │         ├─rlang::syms(tbl_nongroup_vars(.tbl))
   13. │         │ └─rlang:::map(x, sym)
   14. │         │   └─base::lapply(.x, .f, ...)
   15. │         └─dplyr::tbl_nongroup_vars(.tbl)
   16. │           ├─generics::setdiff(tbl_vars(x), group_vars(x))
   17. │           └─dplyr::tbl_vars(x)
   18. │             ├─dplyr:::new_sel_vars(tbl_vars_dispatch(x), group_vars(x))
   19. │             │ └─base::structure(...)
   20. │             └─dplyr:::tbl_vars_dispatch(x)
   21. ├─keyholder::key_by(., vs)
   22. └─keyholder:::key_by.default(., vs)
   23.   └─keyholder:::key_by_impl(...)
   24.     └─keyholder::`keys<-`(`*tmp*`, value = cur_keys)
   25.       └─tibble::enframe(value, name = NULL, value = "value")
  ── Error (test-keyed-df-one-tbl.R:226:3): summarise_if works ───────────────────
  <tibble_error_enframe_must_be_vector/tibble_error/rlang_error/error/condition>
  Error: The `x` argument to `enframe()` must be a vector, not tbl_df.
  Backtrace:
       █
    1. ├─testthat::expect_false(...) test-keyed-df-one-tbl.R:226:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─mtcars_df %>% key_by(vs) %>% summarise_if_f() %>% is_keyed_df()
    5. ├─keyholder::is_keyed_df(.)
    6. ├─magrittr:::summarise_if_f(.)
    7. │ └─magrittr::freduce(value, `_function_list`)
    8. │   ├─base::withVisible(function_list[[k]](value))
    9. │   └─function_list[[k]](value)
   10. │     └─dplyr::summarise_if(., is.double, mean)
   11. │       └─dplyr:::manip_if(...)
   12. │         └─dplyr:::tbl_if_syms(.tbl, .predicate, .env, .include_group_vars = .include_group_vars)
   13. │           ├─rlang::syms(tbl_if_vars(.tbl, .p, .env, ..., .include_group_vars = .include_group_vars))
   14. │           │ └─rlang:::map(x, sym)
   15. │           │   └─base::lapply(.x, .f, ...)
   16. │           └─dplyr:::tbl_if_vars(.tbl, .p, .env, ..., .include_group_vars = .include_group_vars)
   17. │             └─dplyr::tbl_nongroup_vars(.tbl)
   18. │               ├─generics::setdiff(tbl_vars(x), group_vars(x))
   19. │               └─dplyr::tbl_vars(x)
   20. │                 ├─dplyr:::new_sel_vars(tbl_vars_dispatch(x), group_vars(x))
   21. │                 │ └─base::structure(...)
   22. │                 └─dplyr:::tbl_vars_dispatch(x)
   23. ├─keyholder::key_by(., vs)
   24. └─keyholder:::key_by.default(., vs)
   25.   └─keyholder:::key_by_impl(...)
   26.     └─keyholder::`keys<-`(`*tmp*`, value = cur_keys)
   27.       └─tibble::enframe(value, name = NULL, value = "value")
  ── Error (test-keyed-df-one-tbl.R:237:3): summarise_at works ───────────────────
  <tibble_error_enframe_must_be_vector/tibble_error/rlang_error/error/condition>
  Error: The `x` argument to `enframe()` must be a vector, not tbl_df.
  Backtrace:
       █
    1. ├─testthat::expect_false(...) test-keyed-df-one-tbl.R:237:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─mtcars_df %>% key_by(vs) %>% summarise_at_f() %>% is_keyed_df()
    5. ├─keyholder::is_keyed_df(.)
    6. ├─magrittr:::summarise_at_f(.)
    7. │ └─magrittr::freduce(value, `_function_list`)
    8. │   ├─base::withVisible(function_list[[k]](value))
    9. │   └─function_list[[k]](value)
   10. │     └─dplyr::summarise_at(., vars(mpg, vs), mean)
   11. │       └─dplyr:::manip_at(...)
   12. │         └─dplyr:::tbl_at_syms(.tbl, .vars, .include_group_vars = .include_group_vars)
   13. │           └─dplyr:::tbl_at_vars(tbl, vars, .include_group_vars = .include_group_vars)
   14. │             └─dplyr::tbl_nongroup_vars(tbl)
   15. │               ├─generics::setdiff(tbl_vars(x), group_vars(x))
   16. │               └─dplyr::tbl_vars(x)
   17. │                 ├─dplyr:::new_sel_vars(tbl_vars_dispatch(x), group_vars(x))
   18. │                 │ └─base::structure(...)
   19. │                 └─dplyr:::tbl_vars_dispatch(x)
   20. ├─keyholder::key_by(., vs)
   21. └─keyholder:::key_by.default(., vs)
   22.   └─keyholder:::key_by_impl(...)
   23.     └─keyholder::`keys<-`(`*tmp*`, value = cur_keys)
   24.       └─tibble::enframe(value, name = NULL, value = "value")
  ── Error (test-keyed-df-one-tbl.R:250:3): group_by.keyed_df works ──────────────
  <tibble_error_enframe_must_be_vector/tibble_error/rlang_error/error/condition>
  Error: The `x` argument to `enframe()` must be a vector, not tbl_df.
  Backtrace:
       █
    1. ├─keyholder:::expect_commute_with_keys(mtcars_df, group_by_f) test-keyed-df-one-tbl.R:250:2
    2. │ └─keyholder:::expect_commute(...) test-keyed-df-one-tbl.R:27:2
    3. │   └─input %>% .f1 %>% .f2 test-keyed-df-one-tbl.R:16:2
    4. └─magrittr:::.f2(.)
    5.   └─magrittr::freduce(value, `_function_list`)
    6.     ├─base::withVisible(function_list[[k]](value))
    7.     └─function_list[[k]](value)
    8.       └─keyholder::assign_keys(., keys_mtcars)
    9.         └─keyholder::`keys<-`(`*tmp*`, value = value)
   10.           └─tibble::enframe(value, name = NULL, value = "value")
  ── Error (test-keyed-df-one-tbl.R:259:3): group_by_all works ───────────────────
  <tibble_error_enframe_must_be_vector/tibble_error/rlang_error/error/condition>
  Error: The `x` argument to `enframe()` must be a vector, not tbl_df.
  Backtrace:
       █
    1. ├─keyholder:::expect_commute_with_keys(mtcars_df, group_by_all_f) test-keyed-df-one-tbl.R:259:2
    2. │ └─keyholder:::expect_commute(...) test-keyed-df-one-tbl.R:27:2
    3. │   └─input %>% .f1 %>% .f2 test-keyed-df-one-tbl.R:16:2
    4. └─magrittr:::.f2(.)
    5.   └─magrittr::freduce(value, `_function_list`)
    6.     ├─base::withVisible(function_list[[k]](value))
    7.     └─function_list[[k]](value)
    8.       └─keyholder::assign_keys(., keys_mtcars)
    9.         └─keyholder::`keys<-`(`*tmp*`, value = value)
   10.           └─tibble::enframe(value, name = NULL, value = "value")
  ── Error (test-keyed-df-one-tbl.R:268:3): group_by_if works ────────────────────
  <tibble_error_enframe_must_be_vector/tibble_error/rlang_error/error/condition>
  Error: The `x` argument to `enframe()` must be a vector, not tbl_df.
  Backtrace:
       █
    1. ├─keyholder:::expect_commute_with_keys(mtcars_df, group_by_if_f) test-keyed-df-one-tbl.R:268:2
    2. │ └─keyholder:::expect_commute(...) test-keyed-df-one-tbl.R:27:2
    3. │   └─input %>% .f1 %>% .f2 test-keyed-df-one-tbl.R:16:2
    4. └─magrittr:::.f2(.)
    5.   └─magrittr::freduce(value, `_function_list`)
    6.     ├─base::withVisible(function_list[[k]](value))
    7.     └─function_list[[k]](value)
    8.       └─keyholder::assign_keys(., keys_mtcars)
    9.         └─keyholder::`keys<-`(`*tmp*`, value = value)
   10.           └─tibble::enframe(value, name = NULL, value = "value")
  ── Error (test-keyed-df-one-tbl.R:277:3): group_by_at works ────────────────────
  <tibble_error_enframe_must_be_vector/tibble_error/rlang_error/error/condition>
  Error: The `x` argument to `enframe()` must be a vector, not tbl_df.
  Backtrace:
       █
    1. ├─keyholder:::expect_commute_with_keys(mtcars_df, group_by_at_f) test-keyed-df-one-tbl.R:277:2
    2. │ └─keyholder:::expect_commute(...) test-keyed-df-one-tbl.R:27:2
    3. │   └─input %>% .f1 %>% .f2 test-keyed-df-one-tbl.R:16:2
    4. └─magrittr:::.f2(.)
    5.   └─magrittr::freduce(value, `_function_list`)
    6.     ├─base::withVisible(function_list[[k]](value))
    7.     └─function_list[[k]](value)
    8.       └─keyholder::assign_keys(., keys_mtcars)
    9.         └─keyholder::`keys<-`(`*tmp*`, value = value)
   10.           └─tibble::enframe(value, name = NULL, value = "value")
  ── Error (test-keyed-df-one-tbl.R:286:3): ungroup.keyed_df works ───────────────
  <tibble_error_enframe_must_be_vector/tibble_error/rlang_error/error/condition>
  Error: The `x` argument to `enframe()` must be a vector, not tbl_df.
  Backtrace:
       █
    1. ├─keyholder:::expect_commute_with_keys(mtcars_grouped, ungroup) test-keyed-df-one-tbl.R:286:2
    2. │ └─keyholder:::expect_commute(...) test-keyed-df-one-tbl.R:27:2
    3. │   └─input %>% .f1 %>% .f2 test-keyed-df-one-tbl.R:16:2
    4. └─magrittr:::.f2(.)
    5.   └─magrittr::freduce(value, `_function_list`)
    6.     ├─base::withVisible(function_list[[k]](value))
    7.     └─function_list[[k]](value)
    8.       └─keyholder::assign_keys(., keys_mtcars)
    9.         └─keyholder::`keys<-`(`*tmp*`, value = value)
   10.           └─tibble::enframe(value, name = NULL, value = "value")
  ── Error (test-keyed-df-one-tbl.R:293:3): rowwise.keyed_df works ───────────────
  <tibble_error_enframe_must_be_vector/tibble_error/rlang_error/error/condition>
  Error: The `x` argument to `enframe()` must be a vector, not tbl_df.
  Backtrace:
       █
    1. ├─keyholder:::expect_commute_with_keys(mtcars_df, rowwise.keyed_df) test-keyed-df-one-tbl.R:293:2
    2. │ └─keyholder:::expect_commute(...) test-keyed-df-one-tbl.R:27:2
    3. │   └─input %>% .f1 %>% .f2 test-keyed-df-one-tbl.R:16:2
    4. ├─magrittr:::.f2(.)
    5. │ └─magrittr::freduce(value, `_function_list`)
    6. │   ├─base::withVisible(function_list[[k]](value))
    7. │   └─function_list[[k]](value)
    8. │     └─keyholder::assign_keys(., keys_mtcars)
    9. ├─keyholder:::.f1(.)
   10. │ └─keyholder:::next_method_keys(.tbl, rowwise)
   11. │   └─.f(unkey(.tbl), ...) %>% assign_keys(keys(.tbl))
   12. └─keyholder::assign_keys(., keys(.tbl))
   13.   └─keyholder::`keys<-`(`*tmp*`, value = value)
   14.     └─tibble::enframe(value, name = NULL, value = "value")
  ── Error (test-keyed-df-one-tbl.R:300:3): distinct works ───────────────────────
  <tibble_error_enframe_must_be_vector/tibble_error/rlang_error/error/condition>
  Error: The `x` argument to `enframe()` must be a vector, not tbl_df.
  Backtrace:
       █
    1. ├─testthat::expect_false(...) test-keyed-df-one-tbl.R:300:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─mtcars_df %>% key_by(vs, am) %>% distinct(hp) %>% is_keyed_df()
    5. ├─keyholder::is_keyed_df(.)
    6. ├─dplyr::distinct(., hp)
    7. ├─keyholder::key_by(., vs, am)
    8. └─keyholder:::key_by.default(., vs, am)
    9.   └─keyholder:::key_by_impl(...)
   10.     └─keyholder::`keys<-`(`*tmp*`, value = cur_keys)
   11.       └─tibble::enframe(value, name = NULL, value = "value")
  ── Error (test-keyed-df-one-tbl.R:307:3): do works ─────────────────────────────
  <tibble_error_enframe_must_be_vector/tibble_error/rlang_error/error/condition>
  Error: The `x` argument to `enframe()` must be a vector, not tbl_df.
  Backtrace:
       █
    1. ├─testthat::expect_false(...) test-keyed-df-one-tbl.R:307:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─`%>%`(...)
    5. ├─keyholder::is_keyed_df(.)
    6. ├─dplyr::do(...)
    7. ├─dplyr::group_by(., gear)
    8. ├─keyholder::key_by(., vs, am)
    9. └─keyholder:::key_by.default(., vs, am)
   10.   └─keyholder:::key_by_impl(...)
   11.     └─keyholder::`keys<-`(`*tmp*`, value = cur_keys)
   12.       └─tibble::enframe(value, name = NULL, value = "value")
  ── Error (test-keyed-df-one-tbl.R:323:3): arrange.keyed_df works ───────────────
  <tibble_error_enframe_must_be_vector/tibble_error/rlang_error/error/condition>
  Error: The `x` argument to `enframe()` must be a vector, not tbl_df.
  Backtrace:
       █
    1. ├─testthat::expect_identical(output_1_f(mtcars_df), output_2_f(mtcars_df)) test-keyed-df-one-tbl.R:323:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. └─magrittr:::output_1_f(mtcars_df)
    5.   └─magrittr::freduce(value, `_function_list`)
    6.     ├─base::withVisible(function_list[[k]](value))
    7.     └─function_list[[k]](value)
    8.       └─magrittr:::assign_perm_keys(.)
    9.         └─magrittr::freduce(value, `_function_list`)
   10.           ├─base::withVisible(function_list[[k]](value))
   11.           └─function_list[[k]](value)
   12.             └─keyholder::assign_keys(., base_keys[permutation, ])
   13.               └─keyholder::`keys<-`(`*tmp*`, value = value)
   14.                 └─tibble::enframe(value, name = NULL, value = "value")
  ── Error (test-keyed-df-one-tbl.R:352:3): arrange_all works ────────────────────
  <tibble_error_enframe_must_be_vector/tibble_error/rlang_error/error/condition>
  Error: The `x` argument to `enframe()` must be a vector, not tbl_df.
  Backtrace:
       █
    1. ├─testthat::expect_identical(output_1_f(mtcars_df), output_2_f(mtcars_df)) test-keyed-df-one-tbl.R:352:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. └─magrittr:::output_1_f(mtcars_df)
    5.   └─magrittr::freduce(value, `_function_list`)
    6.     ├─base::withVisible(function_list[[k]](value))
    7.     └─function_list[[k]](value)
    8.       └─magrittr:::assign_perm_keys(.)
    9.         └─magrittr::freduce(value, `_function_list`)
   10.           ├─base::withVisible(function_list[[k]](value))
   11.           └─function_list[[k]](value)
   12.             └─keyholder::assign_keys(., base_keys[permutation, ])
   13.               └─keyholder::`keys<-`(`*tmp*`, value = value)
   14.                 └─tibble::enframe(value, name = NULL, value = "value")
  ── Error (test-keyed-df-one-tbl.R:373:3): arrange_if works ─────────────────────
  <tibble_error_enframe_must_be_vector/tibble_error/rlang_error/error/condition>
  Error: The `x` argument to `enframe()` must be a vector, not tbl_df.
  Backtrace:
       █
    1. ├─testthat::expect_identical(output_1_f(mtcars_df), output_2_f(mtcars_df)) test-keyed-df-one-tbl.R:373:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. └─magrittr:::output_1_f(mtcars_df)
    5.   └─magrittr::freduce(value, `_function_list`)
    6.     ├─base::withVisible(function_list[[k]](value))
    7.     └─function_list[[k]](value)
    8.       └─magrittr:::assign_perm_keys(.)
    9.         └─magrittr::freduce(value, `_function_list`)
   10.           ├─base::withVisible(function_list[[k]](value))
   11.           └─function_list[[k]](value)
   12.             └─keyholder::assign_keys(., keys_mtcars[permutation, ])
   13.               └─keyholder::`keys<-`(`*tmp*`, value = value)
   14.                 └─tibble::enframe(value, name = NULL, value = "value")
  ── Error (test-keyed-df-one-tbl.R:388:3): arrange_at works ─────────────────────
  <tibble_error_enframe_must_be_vector/tibble_error/rlang_error/error/condition>
  Error: The `x` argument to `enframe()` must be a vector, not tbl_df.
  Backtrace:
       █
    1. ├─testthat::expect_identical(output_1_f(mtcars_df), output_2_f(mtcars_df)) test-keyed-df-one-tbl.R:388:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. └─magrittr:::output_1_f(mtcars_df)
    5.   └─magrittr::freduce(value, `_function_list`)
    6.     ├─base::withVisible(function_list[[k]](value))
    7.     └─function_list[[k]](value)
    8.       └─magrittr:::assign_perm_keys(.)
    9.         └─magrittr::freduce(value, `_function_list`)
   10.           ├─base::withVisible(function_list[[k]](value))
   11.           └─function_list[[k]](value)
   12.             └─keyholder::assign_keys(., base_keys[permutation, ])
   13.               └─keyholder::`keys<-`(`*tmp*`, value = value)
   14.                 └─tibble::enframe(value, name = NULL, value = "value")
  ── Error (test-keyed-df-one-tbl.R:405:3): filter.keyed_df works ────────────────
  <tibble_error_enframe_must_be_vector/tibble_error/rlang_error/error/condition>
  Error: The `x` argument to `enframe()` must be a vector, not tbl_df.
  Backtrace:
       █
    1. ├─testthat::expect_identical(output_1_f(mtcars_df), output_2_f(mtcars_df)) test-keyed-df-one-tbl.R:405:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. └─magrittr:::output_1_f(mtcars_df)
    5.   └─magrittr::freduce(value, `_function_list`)
    6.     ├─base::withVisible(function_list[[k]](value))
    7.     └─function_list[[k]](value)
    8.       └─magrittr:::assign_perm_keys(.)
    9.         └─magrittr::freduce(value, `_function_list`)
   10.           ├─base::withVisible(function_list[[k]](value))
   11.           └─function_list[[k]](value)
   12.             └─keyholder::assign_keys(., base_keys[permutation, ])
   13.               └─keyholder::`keys<-`(`*tmp*`, value = value)
   14.                 └─tibble::enframe(value, name = NULL, value = "value")
  ── Error (test-keyed-df-one-tbl.R:421:3): filter_all works ─────────────────────
  <tibble_error_enframe_must_be_vector/tibble_error/rlang_error/error/condition>
  Error: The `x` argument to `enframe()` must be a vector, not tbl_df.
  Backtrace:
       █
    1. ├─testthat::expect_identical(output_1_f(mtcars_df), output_2_f(mtcars_df)) test-keyed-df-one-tbl.R:421:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. └─magrittr:::output_1_f(mtcars_df)
    5.   └─magrittr::freduce(value, `_function_list`)
    6.     ├─base::withVisible(function_list[[k]](value))
    7.     └─function_list[[k]](value)
    8.       └─magrittr:::assign_perm_keys(.)
    9.         └─magrittr::freduce(value, `_function_list`)
   10.           ├─base::withVisible(function_list[[k]](value))
   11.           └─function_list[[k]](value)
   12.             └─keyholder::assign_keys(., base_keys[permutation, ])
   13.               └─keyholder::`keys<-`(`*tmp*`, value = value)
   14.                 └─tibble::enframe(value, name = NULL, value = "value")
  ── Error (test-keyed-df-one-tbl.R:445:3): filter_if works ──────────────────────
  <tibble_error_enframe_must_be_vector/tibble_error/rlang_error/error/condition>
  Error: The `x` argument to `enframe()` must be a vector, not tbl_df.
  Backtrace:
       █
    1. ├─testthat::expect_identical(output_1_f(mtcars_df), output_2_f(mtcars_df)) test-keyed-df-one-tbl.R:445:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. └─magrittr:::output_1_f(mtcars_df)
    5.   └─magrittr::freduce(value, `_function_list`)
    6.     ├─base::withVisible(function_list[[k]](value))
    7.     └─function_list[[k]](value)
    8.       └─magrittr:::assign_perm_keys(.)
    9.         └─magrittr::freduce(value, `_function_list`)
   10.           ├─base::withVisible(function_list[[k]](value))
   11.           └─function_list[[k]](value)
   12.             └─keyholder::assign_keys(., keys_mtcars[permutation, ])
   13.               └─keyholder::`keys<-`(`*tmp*`, value = value)
   14.                 └─tibble::enframe(value, name = NULL, value = "value")
  ── Error (test-keyed-df-one-tbl.R:461:3): filter_at works ──────────────────────
  <tibble_error_enframe_must_be_vector/tibble_error/rlang_error/error/condition>
  Error: The `x` argument to `enframe()` must be a vector, not tbl_df.
  Backtrace:
       █
    1. ├─testthat::expect_identical(output_1_f(mtcars_df), output_2_f(mtcars_df)) test-keyed-df-one-tbl.R:461:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. └─magrittr:::output_1_f(mtcars_df)
    5.   └─magrittr::freduce(value, `_function_list`)
    6.     ├─base::withVisible(function_list[[k]](value))
    7.     └─function_list[[k]](value)
    8.       └─magrittr:::assign_perm_keys(.)
    9.         └─magrittr::freduce(value, `_function_list`)
   10.           ├─base::withVisible(function_list[[k]](value))
   11.           └─function_list[[k]](value)
   12.             └─keyholder::assign_keys(., base_keys[permutation, ])
   13.               └─keyholder::`keys<-`(`*tmp*`, value = value)
   14.                 └─tibble::enframe(value, name = NULL, value = "value")
  ── Error (test-keyed-df-one-tbl.R:487:3): slice.keyed_df works ─────────────────
  <tibble_error_enframe_must_be_vector/tibble_error/rlang_error/error/condition>
  Error: The `x` argument to `enframe()` must be a vector, not tbl_df.
  Backtrace:
       █
    1. ├─testthat::expect_identical(output_1_f(mtcars_df), output_2_f(mtcars_df)) test-keyed-df-one-tbl.R:487:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. └─magrittr:::output_1_f(mtcars_df)
    5.   └─magrittr::freduce(value, `_function_list`)
    6.     ├─base::withVisible(function_list[[k]](value))
    7.     └─function_list[[k]](value)
    8.       └─magrittr:::assign_perm_keys(.)
    9.         └─magrittr::freduce(value, `_function_list`)
   10.           ├─base::withVisible(function_list[[k]](value))
   11.           └─function_list[[k]](value)
   12.             └─keyholder::assign_keys(., base_keys[permutation, ])
   13.               └─keyholder::`keys<-`(`*tmp*`, value = value)
   14.                 └─tibble::enframe(value, name = NULL, value = "value")
  ── Error (test-keyed-df-one-tbl.R:502:3): next_method_keys ensures tibble in attr(.tbl, 'keys') ──
  <tibble_error_enframe_must_be_vector/tibble_error/rlang_error/error/condition>
  Error: The `x` argument to `enframe()` must be a vector, not tbl_df.
  Backtrace:
      █
   1. ├─next_method_keys(input, select, mpg) %>% attr("keys") test-keyed-df-one-tbl.R:502:2
   2. ├─keyholder:::next_method_keys(input, select, mpg)
   3. │ └─.f(unkey(.tbl), ...) %>% assign_keys(keys(.tbl))
   4. └─keyholder::assign_keys(., keys(.tbl))
   5.   └─keyholder::`keys<-`(`*tmp*`, value = value)
   6.     └─tibble::enframe(value, name = NULL, value = "value")
  ── Error (test-keyed-df-one-tbl.R:513:3): next_method_keys_track ensures tibble in attr(.tbl, 'keys') ──
  <tibble_error_enframe_must_be_vector/tibble_error/rlang_error/error/condition>
  Error: The `x` argument to `enframe()` must be a vector, not tbl_df.
  Backtrace:
      █
   1. ├─next_method_keys_track(input, arrange, mpg) %>% attr("keys") test-keyed-df-one-tbl.R:513:2
   2. └─keyholder:::next_method_keys_track(input, arrange, mpg)
   3.   └─keyholder::`keys<-`(`*tmp*`, value = keys(.tbl)[id_vals, ])
   4.     └─tibble::enframe(value, name = NULL, value = "value")
  ── Error (test-keyed-df-two-tbl.R:53:3): inner_join.keyed_df works ─────────────
  <tibble_error_enframe_must_be_vector/tibble_error/rlang_error/error/condition>
  Error: The `x` argument to `enframe()` must be a vector, not tbl_df.
  Backtrace:
       █
    1. ├─testthat::expect_identical(output_1_f(band_members_df), output_2_f(band_members_df)) test-keyed-df-two-tbl.R:53:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. └─magrittr:::output_1_f(band_members_df)
    5.   └─magrittr::freduce(value, `_function_list`)
    6.     ├─base::withVisible(function_list[[k]](value))
    7.     └─function_list[[k]](value)
    8.       └─magrittr:::assign_perm_keys(.)
    9.         └─magrittr::freduce(value, `_function_list`)
   10.           ├─base::withVisible(function_list[[k]](value))
   11.           └─function_list[[k]](value)
   12.             └─keyholder::assign_keys(., base_keys[permutation, ])
   13.               └─keyholder::`keys<-`(`*tmp*`, value = value)
   14.                 └─tibble::enframe(value, name = NULL, value = "value")
  ── Error (test-keyed-df-two-tbl.R:70:3): left_join.keyed_df works ──────────────
  <tibble_error_enframe_must_be_vector/tibble_error/rlang_error/error/condition>
  Error: The `x` argument to `enframe()` must be a vector, not tbl_df.
  Backtrace:
       █
    1. ├─testthat::expect_identical(output_1_f(band_members_df), output_2_f(band_members_df)) test-keyed-df-two-tbl.R:70:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. └─magrittr:::output_1_f(band_members_df)
    5.   └─magrittr::freduce(value, `_function_list`)
    6.     ├─base::withVisible(function_list[[k]](value))
    7.     └─function_list[[k]](value)
    8.       └─magrittr:::assign_perm_keys(.)
    9.         └─magrittr::freduce(value, `_function_list`)
   10.           ├─base::withVisible(function_list[[k]](value))
   11.           └─function_list[[k]](value)
   12.             └─keyholder::assign_keys(., base_keys[permutation, ])
   13.               └─keyholder::`keys<-`(`*tmp*`, value = value)
   14.                 └─tibble::enframe(value, name = NULL, value = "value")
  ── Error (test-keyed-df-two-tbl.R:87:3): right_join.keyed_df works ─────────────
  <tibble_error_enframe_must_be_vector/tibble_error/rlang_error/error/condition>
  Error: The `x` argument to `enframe()` must be a vector, not tbl_df.
  Backtrace:
       █
    1. ├─testthat::expect_identical(output_1_f(band_members_df), output_2_f(band_members_df)) test-keyed-df-two-tbl.R:87:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. └─magrittr:::output_1_f(band_members_df)
    5.   └─magrittr::freduce(value, `_function_list`)
    6.     ├─base::withVisible(function_list[[k]](value))
    7.     └─function_list[[k]](value)
    8.       └─magrittr:::assign_perm_keys(.)
    9.         └─magrittr::freduce(value, `_function_list`)
   10.           ├─base::withVisible(function_list[[k]](value))
   11.           └─function_list[[k]](value)
   12.             └─keyholder::assign_keys(., base_keys[permutation, ])
   13.               └─keyholder::`keys<-`(`*tmp*`, value = value)
   14.                 └─tibble::enframe(value, name = NULL, value = "value")
  ── Error (test-keyed-df-two-tbl.R:104:3): full_join.keyed_df works ─────────────
  <tibble_error_enframe_must_be_vector/tibble_error/rlang_error/error/condition>
  Error: The `x` argument to `enframe()` must be a vector, not tbl_df.
  Backtrace:
       █
    1. ├─testthat::expect_identical(output_1_f(band_members_df), output_2_f(band_members_df)) test-keyed-df-two-tbl.R:104:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. └─magrittr:::output_1_f(band_members_df)
    5.   └─magrittr::freduce(value, `_function_list`)
    6.     ├─base::withVisible(function_list[[k]](value))
    7.     └─function_list[[k]](value)
    8.       └─magrittr:::assign_perm_keys(.)
    9.         └─magrittr::freduce(value, `_function_list`)
   10.           ├─base::withVisible(function_list[[k]](value))
   11.           └─function_list[[k]](value)
   12.             └─keyholder::assign_keys(., base_keys[permutation, ])
   13.               └─keyholder::`keys<-`(`*tmp*`, value = value)
   14.                 └─tibble::enframe(value, name = NULL, value = "value")
  ── Error (test-keyed-df-two-tbl.R:121:3): semi_join.keyed_df works ─────────────
  <tibble_error_enframe_must_be_vector/tibble_error/rlang_error/error/condition>
  Error: The `x` argument to `enframe()` must be a vector, not tbl_df.
  Backtrace:
       █
    1. ├─testthat::expect_identical(output_1_f(band_members_df), output_2_f(band_members_df)) test-keyed-df-two-tbl.R:121:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. └─magrittr:::output_1_f(band_members_df)
    5.   └─magrittr::freduce(value, `_function_list`)
    6.     ├─base::withVisible(function_list[[k]](value))
    7.     └─function_list[[k]](value)
    8.       └─magrittr:::assign_perm_keys(.)
    9.         └─magrittr::freduce(value, `_function_list`)
   10.           ├─base::withVisible(function_list[[k]](value))
   11.           └─function_list[[k]](value)
   12.             └─keyholder::assign_keys(., base_keys[permutation, ])
   13.               └─keyholder::`keys<-`(`*tmp*`, value = value)
   14.                 └─tibble::enframe(value, name = NULL, value = "value")
  ── Error (test-keyed-df-two-tbl.R:138:3): anti_join.keyed_df works ─────────────
  <tibble_error_enframe_must_be_vector/tibble_error/rlang_error/error/condition>
  Error: The `x` argument to `enframe()` must be a vector, not tbl_df.
  Backtrace:
       █
    1. ├─testthat::expect_identical(output_1_f(band_members_df), output_2_f(band_members_df)) test-keyed-df-two-tbl.R:138:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. └─magrittr:::output_1_f(band_members_df)
    5.   └─magrittr::freduce(value, `_function_list`)
    6.     ├─base::withVisible(function_list[[k]](value))
    7.     └─function_list[[k]](value)
    8.       └─magrittr:::assign_perm_keys(.)
    9.         └─magrittr::freduce(value, `_function_list`)
   10.           ├─base::withVisible(function_list[[k]](value))
   11.           └─function_list[[k]](value)
   12.             └─keyholder::assign_keys(., base_keys[permutation, ])
   13.               └─keyholder::`keys<-`(`*tmp*`, value = value)
   14.                 └─tibble::enframe(value, name = NULL, value = "value")
  ── Error (test-keyed-df.R:6:1): (code run outside of `test_that()`) ────────────
  <tibble_error_enframe_must_be_vector/tibble_error/rlang_error/error/condition>
  Error: The `x` argument to `enframe()` must be a vector, not tbl_df.
  Backtrace:
      █
   1. ├─df %>% key_by(vs, am) test-keyed-df.R:6:0
   2. ├─keyholder::key_by(., vs, am)
   3. └─keyholder:::key_by.default(., vs, am)
   4.   └─keyholder:::key_by_impl(...)
   5.     └─keyholder::`keys<-`(`*tmp*`, value = cur_keys)
   6.       └─tibble::enframe(value, name = NULL, value = "value")
  ── Error (test-keys-get.R:15:3): keys works ────────────────────────────────────
  <tibble_error_enframe_must_be_vector/tibble_error/rlang_error/error/condition>
  Error: The `x` argument to `enframe()` must be a vector, not tbl_df.
  Backtrace:
      █
   1. ├─keyholder::key_by(df, vs, am) test-keys-get.R:15:2
   2. └─keyholder:::key_by.default(df, vs, am)
   3.   └─keyholder:::key_by_impl(...)
   4.     └─keyholder::`keys<-`(`*tmp*`, value = cur_keys)
   5.       └─tibble::enframe(value, name = NULL, value = "value")
  ── Error (test-keys-get.R:28:3): raw_keys works ────────────────────────────────
  <tibble_error_enframe_must_be_vector/tibble_error/rlang_error/error/condition>
  Error: The `x` argument to `enframe()` must be a vector, not tbl_df.
  Backtrace:
      █
   1. ├─keyholder::key_by(df, vs, am) test-keys-get.R:28:2
   2. └─keyholder:::key_by.default(df, vs, am)
   3.   └─keyholder:::key_by_impl(...)
   4.     └─keyholder::`keys<-`(`*tmp*`, value = cur_keys)
   5.       └─tibble::enframe(value, name = NULL, value = "value")
  ── Error (test-keys-manip.R:10:3): remove_keys.default works ───────────────────
  <tibble_error_enframe_must_be_vector/tibble_error/rlang_error/error/condition>
  Error: The `x` argument to `enframe()` must be a vector, not tbl_df.
  Backtrace:
      █
   1. ├─keyholder::key_by(df, vs, am) test-keys-manip.R:10:2
   2. └─keyholder:::key_by.default(df, vs, am)
   3.   └─keyholder:::key_by_impl(...)
   4.     └─keyholder::`keys<-`(`*tmp*`, value = cur_keys)
   5.       └─tibble::enframe(value, name = NULL, value = "value")
  ── Error (test-keys-manip.R:19:3): remove.keys.default correctly unkeys ────────
  <tibble_error_enframe_must_be_vector/tibble_error/rlang_error/error/condition>
  Error: The `x` argument to `enframe()` must be a vector, not tbl_df.
  Backtrace:
      █
   1. ├─keyholder::key_by(df, vs, am) test-keys-manip.R:19:2
   2. └─keyholder:::key_by.default(df, vs, am)
   3.   └─keyholder:::key_by_impl(...)
   4.     └─keyholder::`keys<-`(`*tmp*`, value = cur_keys)
   5.       └─tibble::enframe(value, name = NULL, value = "value")
  ── Error (test-keys-manip.R:36:3): restore_keys.default works ──────────────────
  <tibble_error_enframe_must_be_vector/tibble_error/rlang_error/error/condition>
  Error: The `x` argument to `enframe()` must be a vector, not tbl_df.
  Backtrace:
      █
   1. ├─keyholder::key_by(df, vs, am) test-keys-manip.R:36:2
   2. └─keyholder:::key_by.default(df, vs, am)
   3.   └─keyholder:::key_by_impl(...)
   4.     └─keyholder::`keys<-`(`*tmp*`, value = cur_keys)
   5.       └─tibble::enframe(value, name = NULL, value = "value")
  ── Error (test-keys-manip.R:58:3): restore_keys.default handles .remove and .unkey arguments ──
  <tibble_error_enframe_must_be_vector/tibble_error/rlang_error/error/condition>
  Error: The `x` argument to `enframe()` must be a vector, not tbl_df.
  Backtrace:
      █
   1. ├─keyholder::key_by(df, vs, am) test-keys-manip.R:58:2
   2. └─keyholder:::key_by.default(df, vs, am)
   3.   └─keyholder:::key_by_impl(...)
   4.     └─keyholder::`keys<-`(`*tmp*`, value = cur_keys)
   5.       └─tibble::enframe(value, name = NULL, value = "value")
  ── Error (test-keys-manip.R:89:3): restore_keys.default preserves class ────────
  <tibble_error_enframe_must_be_vector/tibble_error/rlang_error/error/condition>
  Error: The `x` argument to `enframe()` must be a vector, not tbl_df.
  Backtrace:
      █
   1. ├─df %>% key_by(vs, am) test-keys-manip.R:89:2
   2. ├─keyholder::key_by(., vs, am)
   3. └─keyholder:::key_by.default(., vs, am)
   4.   └─keyholder:::key_by_impl(...)
   5.     └─keyholder::`keys<-`(`*tmp*`, value = cur_keys)
   6.       └─tibble::enframe(value, name = NULL, value = "value")
  ── Error (test-keys-manip.R:113:3): restore_keys.default handles grouping ──────
  <tibble_error_enframe_must_be_vector/tibble_error/rlang_error/error/condition>
  Error: The `x` argument to `enframe()` must be a vector, not tbl_df.
  Backtrace:
      █
   1. ├─df %>% key_by(vs, am) test-keys-manip.R:113:2
   2. ├─keyholder::key_by(., vs, am)
   3. └─keyholder:::key_by.default(., vs, am)
   4.   └─keyholder:::key_by_impl(...)
   5.     └─keyholder::`keys<-`(`*tmp*`, value = cur_keys)
   6.       └─tibble::enframe(value, name = NULL, value = "value")
  ── Error (test-keys-manip.R:131:3): pull_key works ─────────────────────────────
  <tibble_error_enframe_must_be_vector/tibble_error/rlang_error/error/condition>
  Error: The `x` argument to `enframe()` must be a vector, not tbl_df.
  Backtrace:
      █
   1. ├─df %>% key_by(vs, am) test-keys-manip.R:131:2
   2. ├─keyholder::key_by(., vs, am)
   3. └─keyholder:::key_by.default(., vs, am)
   4.   └─keyholder:::key_by_impl(...)
   5.     └─keyholder::`keys<-`(`*tmp*`, value = cur_keys)
   6.       └─tibble::enframe(value, name = NULL, value = "value")
  ── Error (test-keys-manip.R:143:3): rename_keys works ──────────────────────────
  <tibble_error_enframe_must_be_vector/tibble_error/rlang_error/error/condition>
  Error: The `x` argument to `enframe()` must be a vector, not tbl_df.
  Backtrace:
      █
   1. ├─df %>% key_by(vs, am) test-keys-manip.R:143:2
   2. ├─keyholder::key_by(., vs, am)
   3. └─keyholder:::key_by.default(., vs, am)
   4.   └─keyholder:::key_by_impl(...)
   5.     └─keyholder::`keys<-`(`*tmp*`, value = cur_keys)
   6.       └─tibble::enframe(value, name = NULL, value = "value")
  ── Error (test-keys-manip.R:160:3): set_key_cond works ─────────────────────────
  <tibble_error_enframe_must_be_vector/tibble_error/rlang_error/error/condition>
  Error: The `x` argument to `enframe()` must be a vector, not tbl_df.
  Backtrace:
      █
   1. └─keyholder:::set_key_cond(df, key_tbl_1, FALSE) test-keys-manip.R:160:2
   2.   └─keyholder::`keys<-`(`*tmp*`, value = .key)
   3.     └─tibble::enframe(value, name = NULL, value = "value")
  ── Error (test-keys-set.R:11:3): `keys<-` works ────────────────────────────────
  <tibble_error_enframe_must_be_vector/tibble_error/rlang_error/error/condition>
  Error: The `x` argument to `enframe()` must be a vector, not tbl_df.
  Backtrace:
      █
   1. └─keyholder::`keys<-`(...) test-keys-set.R:11:2
   2.   └─tibble::enframe(value, name = NULL, value = "value")
  ── Error (test-keys-set.R:25:3): `keys<-` converts value to tibble ─────────────
  <tibble_error_enframe_must_be_vector/tibble_error/rlang_error/error/condition>
  Error: The `x` argument to `enframe()` must be a vector, not data.frame.
  Backtrace:
      █
   1. └─keyholder::`keys<-`(...) test-keys-set.R:25:2
   2.   └─tibble::enframe(value, name = NULL, value = "value")
  ── Error (test-keys-set.R:40:3): assign_keys works ─────────────────────────────
  <tibble_error_enframe_must_be_vector/tibble_error/rlang_error/error/condition>
  Error: The `x` argument to `enframe()` must be a vector, not tbl_df.
  Backtrace:
      █
   1. └─keyholder::assign_keys(df, input_keys) test-keys-set.R:40:2
   2.   └─keyholder::`keys<-`(`*tmp*`, value = value)
   3.     └─tibble::enframe(value, name = NULL, value = "value")
  ── Error (test-keys-set.R:49:3): key_by.default works ──────────────────────────
  <tibble_error_enframe_must_be_vector/tibble_error/rlang_error/error/condition>
  Error: The `x` argument to `enframe()` must be a vector, not tbl_df.
  Backtrace:
      █
   1. ├─keyholder::key_by(df, vs) test-keys-set.R:49:2
   2. └─keyholder:::key_by.default(df, vs)
   3.   └─keyholder:::key_by_impl(...)
   4.     └─keyholder::`keys<-`(`*tmp*`, value = cur_keys)
   5.       └─tibble::enframe(value, name = NULL, value = "value")
  ── Error (test-keys-set.R:59:3): key_by.default handles .add and .exclude arguments ──
  <tibble_error_enframe_must_be_vector/tibble_error/rlang_error/error/condition>
  Error: The `x` argument to `enframe()` must be a vector, not tbl_df.
  Backtrace:
      █
   1. ├─keyholder::key_by(df, vs) test-keys-set.R:59:2
   2. └─keyholder:::key_by.default(df, vs)
   3.   └─keyholder:::key_by_impl(...)
   4.     └─keyholder::`keys<-`(`*tmp*`, value = cur_keys)
   5.       └─tibble::enframe(value, name = NULL, value = "value")
  ── Error (test-keys-set.R:82:3): key_by.default overrides keys in case .add is TRUE ──
  <tibble_error_enframe_must_be_vector/tibble_error/rlang_error/error/condition>
  Error: The `x` argument to `enframe()` must be a vector, not tbl_df.
  Backtrace:
      █
   1. ├─keyholder::key_by(df, vs, am) test-keys-set.R:82:2
   2. └─keyholder:::key_by.default(df, vs, am)
   3.   └─keyholder:::key_by_impl(...)
   4.     └─keyholder::`keys<-`(`*tmp*`, value = cur_keys)
   5.       └─tibble::enframe(value, name = NULL, value = "value")
  ── Error (test-keys-set.R:93:3): key_by.default removes keys in case .add is TRUE ──
  <tibble_error_enframe_must_be_vector/tibble_error/rlang_error/error/condition>
  Error: The `x` argument to `enframe()` must be a vector, not tbl_df.
  Backtrace:
      █
   1. ├─df %>% as_tibble() %>% key_by(vs) test-keys-set.R:93:2
   2. ├─keyholder::key_by(., vs)
   3. └─keyholder:::key_by.default(., vs)
   4.   └─keyholder:::key_by_impl(...)
   5.     └─keyholder::`keys<-`(`*tmp*`, value = cur_keys)
   6.       └─tibble::enframe(value, name = NULL, value = "value")
  ── Error (test-keys-set.R:101:3): key_by.default handles grouped_df ────────────
  <tibble_error_enframe_must_be_vector/tibble_error/rlang_error/error/condition>
  Error: The `x` argument to `enframe()` must be a vector, not tbl_df.
  Backtrace:
      █
   1. ├─df %>% group_by(gear, vs) %>% key_by(vs, am) test-keys-set.R:101:2
   2. ├─keyholder::key_by(., vs, am)
   3. └─keyholder:::key_by.default(., vs, am)
   4.   └─keyholder:::key_by_impl(...)
   5.     └─keyholder::`keys<-`(`*tmp*`, value = cur_keys)
   6.       └─tibble::enframe(value, name = NULL, value = "value")
  ── Error (test-keys-set.R:118:3): unkey.keyed_df works ─────────────────────────
  <tibble_error_enframe_must_be_vector/tibble_error/rlang_error/error/condition>
  Error: The `x` argument to `enframe()` must be a vector, not tbl_df.
  Backtrace:
      █
   1. ├─keyholder::key_by(df, vs, am) test-keys-set.R:118:2
   2. └─keyholder:::key_by.default(df, vs, am)
   3.   └─keyholder:::key_by_impl(...)
   4.     └─keyholder::`keys<-`(`*tmp*`, value = cur_keys)
   5.       └─tibble::enframe(value, name = NULL, value = "value")
  ── Error (test-scoped.R:6:1): (code run outside of `test_that()`) ──────────────
  <tibble_error_enframe_must_be_vector/tibble_error/rlang_error/error/condition>
  Error: The `x` argument to `enframe()` must be a vector, not tbl_df.
  Backtrace:
      █
   1. ├─df %>% key_by(vs, am, disp) test-scoped.R:6:0
   2. ├─keyholder::key_by(., vs, am, disp)
   3. └─keyholder:::key_by.default(., vs, am, disp)
   4.   └─keyholder:::key_by_impl(...)
   5.     └─keyholder::`keys<-`(`*tmp*`, value = cur_keys)
   6.       └─tibble::enframe(value, name = NULL, value = "value")
  
  [ FAIL 71 | WARN 0 | SKIP 0 | PASS 35 ]
  Error: Test failures
  Execution halted