Running ‘testthat.R’ [9s/30s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > 
  > test_check("emayili")
  Loading required package: emayili
  
  Attaching package: 'emayili'
  
  The following object is masked from 'package:graphics':
  
      text
  
  The following objects are masked from 'package:base':
  
      local, raw
  
  [ FAIL 12 | WARN 0 | SKIP 12 | PASS 188 ]
  
  ══ Skipped tests ═══════════════════════════════════════════════════════════════
  • On CRAN (11)
  • suppressWarnings(is.na(smtp_gmail)) is TRUE (1)
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error (test-encrypt.R:51:3): sign ───────────────────────────────────────────
  Error in ``names<-`(`*tmp*`, value = names)`: If any elements are named, all elements must be named.
  Backtrace:
       ▆
    1. ├─testthat::expect_match(as.character(msg), BEGIN_PGP_SIGNATURE) at test-encrypt.R:51:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─base::as.character(msg)
    5. ├─emayili:::as.character.envelope(msg)
    6. │ ├─emayili:::encrypt_body(...) at emayili/R/envelope.R:137:2
    7. │ │ └─parties %>% select(type, email = raw) at emayili/R/encrypt.R:49:4
    8. │ └─emayili::parties(x) at emayili/R/envelope.R:137:2
    9. │   └─... %>% ... at emayili/R/parties.R:21:2
   10. ├─dplyr::select(., type, email = raw)
   11. ├─dplyr::mutate(...)
   12. ├─dplyr::rename(., address = values)
   13. ├─dplyr::select(., -address)
   14. ├─tidyr::unnest(., values)
   15. └─tidyr::hoist(., address, "values")
   16.   └─tidyr:::df_simplify(...)
   17.     └─tidyr:::col_simplify(...)
   18.       ├─base::tryCatch(vec_unchop(x_scalars, ptype = x_ptype), vctrs_error_incompatible_type = function(e) x)
   19.       │ └─base tryCatchList(expr, classes, parentenv, handlers)
   20.       │   └─base tryCatchOne(expr, names, parentenv, handlers[[1L]])
   21.       │     └─base doTryCatch(return(expr), name, parentenv, handler)
   22.       └─vctrs::vec_unchop(x_scalars, ptype = x_ptype)
   23.         └─vctrs `<fn>`()
   24.           └─vctrs:::set_names_fallback(x = x, names = names)
   25.             ├─base::`names<-`(`*tmp*`, value = names)
   26.             └─vctrs:::`names<-.vctrs_vctr`(`*tmp*`, value = names)
   27.               └─rlang::abort("If any elements are named, all elements must be named.")
  ── Error (test-encrypt.R:67:3): encrypt ────────────────────────────────────────
  Error in ``names<-`(`*tmp*`, value = names)`: If any elements are named, all elements must be named.
  Backtrace:
       ▆
    1. ├─testthat::expect_match(as.character(msg), BEGIN_PGP_MESSAGE) at test-encrypt.R:67:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─base::as.character(msg)
    5. ├─emayili:::as.character.envelope(msg)
    6. │ ├─emayili:::encrypt_body(...) at emayili/R/envelope.R:137:2
    7. │ │ └─parties %>% select(type, email = raw) at emayili/R/encrypt.R:49:4
    8. │ └─emayili::parties(x) at emayili/R/envelope.R:137:2
    9. │   └─... %>% ... at emayili/R/parties.R:21:2
   10. ├─dplyr::select(., type, email = raw)
   11. ├─dplyr::mutate(...)
   12. ├─dplyr::rename(., address = values)
   13. ├─dplyr::select(., -address)
   14. ├─tidyr::unnest(., values)
   15. └─tidyr::hoist(., address, "values")
   16.   └─tidyr:::df_simplify(...)
   17.     └─tidyr:::col_simplify(...)
   18.       ├─base::tryCatch(vec_unchop(x_scalars, ptype = x_ptype), vctrs_error_incompatible_type = function(e) x)
   19.       │ └─base tryCatchList(expr, classes, parentenv, handlers)
   20.       │   └─base tryCatchOne(expr, names, parentenv, handlers[[1L]])
   21.       │     └─base doTryCatch(return(expr), name, parentenv, handler)
   22.       └─vctrs::vec_unchop(x_scalars, ptype = x_ptype)
   23.         └─vctrs `<fn>`()
   24.           └─vctrs:::set_names_fallback(x = x, names = names)
   25.             ├─base::`names<-`(`*tmp*`, value = names)
   26.             └─vctrs:::`names<-.vctrs_vctr`(`*tmp*`, value = names)
   27.               └─rlang::abort("If any elements are named, all elements must be named.")
  ── Error (test-encrypt.R:84:3): sign & encrypt ─────────────────────────────────
  Error in ``names<-`(`*tmp*`, value = names)`: If any elements are named, all elements must be named.
  Backtrace:
       ▆
    1. ├─testthat::expect_match(as.character(msg), BEGIN_PGP_MESSAGE) at test-encrypt.R:84:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─base::as.character(msg)
    5. ├─emayili:::as.character.envelope(msg)
    6. │ ├─emayili:::encrypt_body(...) at emayili/R/envelope.R:137:2
    7. │ │ └─parties %>% select(type, email = raw) at emayili/R/encrypt.R:49:4
    8. │ └─emayili::parties(x) at emayili/R/envelope.R:137:2
    9. │   └─... %>% ... at emayili/R/parties.R:21:2
   10. ├─dplyr::select(., type, email = raw)
   11. ├─dplyr::mutate(...)
   12. ├─dplyr::rename(., address = values)
   13. ├─dplyr::select(., -address)
   14. ├─tidyr::unnest(., values)
   15. └─tidyr::hoist(., address, "values")
   16.   └─tidyr:::df_simplify(...)
   17.     └─tidyr:::col_simplify(...)
   18.       ├─base::tryCatch(vec_unchop(x_scalars, ptype = x_ptype), vctrs_error_incompatible_type = function(e) x)
   19.       │ └─base tryCatchList(expr, classes, parentenv, handlers)
   20.       │   └─base tryCatchOne(expr, names, parentenv, handlers[[1L]])
   21.       │     └─base doTryCatch(return(expr), name, parentenv, handler)
   22.       └─vctrs::vec_unchop(x_scalars, ptype = x_ptype)
   23.         └─vctrs `<fn>`()
   24.           └─vctrs:::set_names_fallback(x = x, names = names)
   25.             ├─base::`names<-`(`*tmp*`, value = names)
   26.             └─vctrs:::`names<-.vctrs_vctr`(`*tmp*`, value = names)
   27.               └─rlang::abort("If any elements are named, all elements must be named.")
  ── Error (test-encrypt.R:100:3): public key ────────────────────────────────────
  Error in ``names<-`(`*tmp*`, value = names)`: If any elements are named, all elements must be named.
  Backtrace:
       ▆
    1. ├─testthat::expect_match(as.character(msg), BEGIN_PGP_PUBLIC_KEY_BLOCK) at test-encrypt.R:100:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─base::as.character(msg)
    5. ├─emayili:::as.character.envelope(msg)
    6. │ ├─emayili:::encrypt_body(...) at emayili/R/envelope.R:137:2
    7. │ │ └─parties %>% select(type, email = raw) at emayili/R/encrypt.R:49:4
    8. │ └─emayili::parties(x) at emayili/R/envelope.R:137:2
    9. │   └─... %>% ... at emayili/R/parties.R:21:2
   10. ├─dplyr::select(., type, email = raw)
   11. ├─dplyr::mutate(...)
   12. ├─dplyr::rename(., address = values)
   13. ├─dplyr::select(., -address)
   14. ├─tidyr::unnest(., values)
   15. └─tidyr::hoist(., address, "values")
   16.   └─tidyr:::df_simplify(...)
   17.     └─tidyr:::col_simplify(...)
   18.       ├─base::tryCatch(vec_unchop(x_scalars, ptype = x_ptype), vctrs_error_incompatible_type = function(e) x)
   19.       │ └─base tryCatchList(expr, classes, parentenv, handlers)
   20.       │   └─base tryCatchOne(expr, names, parentenv, handlers[[1L]])
   21.       │     └─base doTryCatch(return(expr), name, parentenv, handler)
   22.       └─vctrs::vec_unchop(x_scalars, ptype = x_ptype)
   23.         └─vctrs `<fn>`()
   24.           └─vctrs:::set_names_fallback(x = x, names = names)
   25.             ├─base::`names<-`(`*tmp*`, value = names)
   26.             └─vctrs:::`names<-.vctrs_vctr`(`*tmp*`, value = names)
   27.               └─rlang::abort("If any elements are named, all elements must be named.")
  ── Failure (test-encrypt.R:110:3): fail without sender or recipients ───────────
  `envelope(to = "alice@yahoo.com") %>% encrypt() %>% as.character()` threw an error with unexpected message.
  Expected match: "without sender"
  Actual message: "If any elements are named, all elements must be named."
  Backtrace:
       ▆
    1. ├─testthat::expect_error(...) at test-encrypt.R:110:2
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat .capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. ├─envelope(to = "alice@yahoo.com") %>% encrypt() %>% ...
    7. ├─base::as.character(.)
    8. ├─emayili:::as.character.envelope(.)
    9. │ ├─emayili:::encrypt_body(...) at emayili/R/envelope.R:137:2
   10. │ │ └─parties %>% select(type, email = raw) at emayili/R/encrypt.R:49:4
   11. │ └─emayili::parties(x) at emayili/R/envelope.R:137:2
   12. │   └─... %>% ... at emayili/R/parties.R:21:2
   13. ├─dplyr::select(., type, email = raw)
   14. ├─dplyr::mutate(...)
   15. ├─dplyr::rename(., address = values)
   16. ├─dplyr::select(., -address)
   17. ├─tidyr::unnest(., values)
   18. └─tidyr::hoist(., address, "values")
   19.   └─tidyr:::df_simplify(...)
   20.     └─tidyr:::col_simplify(...)
   21.       ├─base::tryCatch(vec_unchop(x_scalars, ptype = x_ptype), vctrs_error_incompatible_type = function(e) x)
   22.       │ └─base tryCatchList(expr, classes, parentenv, handlers)
   23.       │   └─base tryCatchOne(expr, names, parentenv, handlers[[1L]])
   24.       │     └─base doTryCatch(return(expr), name, parentenv, handler)
   25.       └─vctrs::vec_unchop(x_scalars, ptype = x_ptype)
   26.         └─vctrs `<fn>`()
   27.           └─vctrs:::set_names_fallback(x = x, names = names)
   28.             ├─base::`names<-`(`*tmp*`, value = names)
   29.             └─vctrs:::`names<-.vctrs_vctr`(`*tmp*`, value = names)
   30.               └─rlang::abort("If any elements are named, all elements must be named.")
  ── Failure (test-encrypt.R:114:3): fail without sender or recipients ───────────
  `envelope(from = "bob@gmail.com") %>% encrypt() %>% as.character()` threw an error with unexpected message.
  Expected match: "without recipients"
  Actual message: "If any elements are named, all elements must be named."
  Backtrace:
       ▆
    1. ├─testthat::expect_error(...) at test-encrypt.R:114:2
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat .capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. ├─envelope(from = "bob@gmail.com") %>% encrypt() %>% ...
    7. ├─base::as.character(.)
    8. ├─emayili:::as.character.envelope(.)
    9. │ ├─emayili:::encrypt_body(...) at emayili/R/envelope.R:137:2
   10. │ │ └─parties %>% select(type, email = raw) at emayili/R/encrypt.R:49:4
   11. │ └─emayili::parties(x) at emayili/R/envelope.R:137:2
   12. │   └─... %>% ... at emayili/R/parties.R:21:2
   13. ├─dplyr::select(., type, email = raw)
   14. ├─dplyr::mutate(...)
   15. ├─dplyr::rename(., address = values)
   16. ├─dplyr::select(., -address)
   17. ├─tidyr::unnest(., values)
   18. └─tidyr::hoist(., address, "values")
   19.   └─tidyr:::df_simplify(...)
   20.     └─tidyr:::col_simplify(...)
   21.       ├─base::tryCatch(vec_unchop(x_scalars, ptype = x_ptype), vctrs_error_incompatible_type = function(e) x)
   22.       │ └─base tryCatchList(expr, classes, parentenv, handlers)
   23.       │   └─base tryCatchOne(expr, names, parentenv, handlers[[1L]])
   24.       │     └─base doTryCatch(return(expr), name, parentenv, handler)
   25.       └─vctrs::vec_unchop(x_scalars, ptype = x_ptype)
   26.         └─vctrs `<fn>`()
   27.           └─vctrs:::set_names_fallback(x = x, names = names)
   28.             ├─base::`names<-`(`*tmp*`, value = names)
   29.             └─vctrs:::`names<-.vctrs_vctr`(`*tmp*`, value = names)
   30.               └─rlang::abort("If any elements are named, all elements must be named.")
  ── Failure (test-encrypt.R:122:3): missing public keys ─────────────────────────
  ``%>%`(...)` threw an error with unexpected message.
  Expected match: "missing keys"
  Actual message: "If any elements are named, all elements must be named."
  Backtrace:
       ▆
    1. ├─testthat::expect_error(...) at test-encrypt.R:122:2
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat .capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. ├─... %>% as.character()
    7. ├─base::as.character(.)
    8. ├─emayili:::as.character.envelope(.)
    9. │ ├─emayili:::encrypt_body(...) at emayili/R/envelope.R:137:2
   10. │ │ └─parties %>% select(type, email = raw) at emayili/R/encrypt.R:49:4
   11. │ └─emayili::parties(x) at emayili/R/envelope.R:137:2
   12. │   └─... %>% ... at emayili/R/parties.R:21:2
   13. ├─dplyr::select(., type, email = raw)
   14. ├─dplyr::mutate(...)
   15. ├─dplyr::rename(., address = values)
   16. ├─dplyr::select(., -address)
   17. ├─tidyr::unnest(., values)
   18. └─tidyr::hoist(., address, "values")
   19.   └─tidyr:::df_simplify(...)
   20.     └─tidyr:::col_simplify(...)
   21.       ├─base::tryCatch(vec_unchop(x_scalars, ptype = x_ptype), vctrs_error_incompatible_type = function(e) x)
   22.       │ └─base tryCatchList(expr, classes, parentenv, handlers)
   23.       │   └─base tryCatchOne(expr, names, parentenv, handlers[[1L]])
   24.       │     └─base doTryCatch(return(expr), name, parentenv, handler)
   25.       └─vctrs::vec_unchop(x_scalars, ptype = x_ptype)
   26.         └─vctrs `<fn>`()
   27.           └─vctrs:::set_names_fallback(x = x, names = names)
   28.             ├─base::`names<-`(`*tmp*`, value = names)
   29.             └─vctrs:::`names<-.vctrs_vctr`(`*tmp*`, value = names)
   30.               └─rlang::abort("If any elements are named, all elements must be named.")
  ── Failure (test-encrypt.R:129:3): missing public keys ─────────────────────────
  ``%>%`(...)` threw an error with unexpected message.
  Expected match: "missing keys"
  Actual message: "If any elements are named, all elements must be named."
  Backtrace:
       ▆
    1. ├─testthat::expect_error(...) at test-encrypt.R:129:2
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat .capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. ├─... %>% as.character()
    7. ├─base::as.character(.)
    8. ├─emayili:::as.character.envelope(.)
    9. │ ├─emayili:::encrypt_body(...) at emayili/R/envelope.R:137:2
   10. │ │ └─parties %>% select(type, email = raw) at emayili/R/encrypt.R:49:4
   11. │ └─emayili::parties(x) at emayili/R/envelope.R:137:2
   12. │   └─... %>% ... at emayili/R/parties.R:21:2
   13. ├─dplyr::select(., type, email = raw)
   14. ├─dplyr::mutate(...)
   15. ├─dplyr::rename(., address = values)
   16. ├─dplyr::select(., -address)
   17. ├─tidyr::unnest(., values)
   18. └─tidyr::hoist(., address, "values")
   19.   └─tidyr:::df_simplify(...)
   20.     └─tidyr:::col_simplify(...)
   21.       ├─base::tryCatch(vec_unchop(x_scalars, ptype = x_ptype), vctrs_error_incompatible_type = function(e) x)
   22.       │ └─base tryCatchList(expr, classes, parentenv, handlers)
   23.       │   └─base tryCatchOne(expr, names, parentenv, handlers[[1L]])
   24.       │     └─base doTryCatch(return(expr), name, parentenv, handler)
   25.       └─vctrs::vec_unchop(x_scalars, ptype = x_ptype)
   26.         └─vctrs `<fn>`()
   27.           └─vctrs:::set_names_fallback(x = x, names = names)
   28.             ├─base::`names<-`(`*tmp*`, value = names)
   29.             └─vctrs:::`names<-.vctrs_vctr`(`*tmp*`, value = names)
   30.               └─rlang::abort("If any elements are named, all elements must be named.")
  ── Failure (test-encrypt.R:142:3): sign with/without body ──────────────────────
  `nobody %>% encrypt(FALSE, TRUE, TRUE) %>% as.character()` threw an error.
  Message: If any elements are named, all elements must be named.
  Class:   rlang_error/error/condition
  Backtrace:
       ▆
    1. ├─testthat::expect_error(...) at test-encrypt.R:142:2
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat .capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. ├─nobody %>% encrypt(FALSE, TRUE, TRUE) %>% as.character()
    7. ├─base::as.character(.)
    8. ├─emayili:::as.character.envelope(.)
    9. │ ├─emayili:::encrypt_body(...) at emayili/R/envelope.R:137:2
   10. │ │ └─parties %>% select(type, email = raw) at emayili/R/encrypt.R:49:4
   11. │ └─emayili::parties(x) at emayili/R/envelope.R:137:2
   12. │   └─... %>% ... at emayili/R/parties.R:21:2
   13. ├─dplyr::select(., type, email = raw)
   14. ├─dplyr::mutate(...)
   15. ├─dplyr::rename(., address = values)
   16. ├─dplyr::select(., -address)
   17. ├─tidyr::unnest(., values)
   18. └─tidyr::hoist(., address, "values")
   19.   └─tidyr:::df_simplify(...)
   20.     └─tidyr:::col_simplify(...)
   21.       ├─base::tryCatch(vec_unchop(x_scalars, ptype = x_ptype), vctrs_error_incompatible_type = function(e) x)
   22.       │ └─base tryCatchList(expr, classes, parentenv, handlers)
   23.       │   └─base tryCatchOne(expr, names, parentenv, handlers[[1L]])
   24.       │     └─base doTryCatch(return(expr), name, parentenv, handler)
   25.       └─vctrs::vec_unchop(x_scalars, ptype = x_ptype)
   26.         └─vctrs `<fn>`()
   27.           └─vctrs:::set_names_fallback(x = x, names = names)
   28.             ├─base::`names<-`(`*tmp*`, value = names)
   29.             └─vctrs:::`names<-.vctrs_vctr`(`*tmp*`, value = names)
   30.               └─rlang::abort("If any elements are named, all elements must be named.")
  ── Failure (test-encrypt.R:143:3): sign with/without body ──────────────────────
  `body %>% encrypt(FALSE, TRUE, TRUE) %>% as.character()` threw an error.
  Message: If any elements are named, all elements must be named.
  Class:   rlang_error/error/condition
  Backtrace:
       ▆
    1. ├─testthat::expect_error(...) at test-encrypt.R:143:2
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat .capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. ├─body %>% encrypt(FALSE, TRUE, TRUE) %>% as.character()
    7. ├─base::as.character(.)
    8. ├─emayili:::as.character.envelope(.)
    9. │ ├─emayili:::encrypt_body(...) at emayili/R/envelope.R:137:2
   10. │ │ └─parties %>% select(type, email = raw) at emayili/R/encrypt.R:49:4
   11. │ └─emayili::parties(x) at emayili/R/envelope.R:137:2
   12. │   └─... %>% ... at emayili/R/parties.R:21:2
   13. ├─dplyr::select(., type, email = raw)
   14. ├─dplyr::mutate(...)
   15. ├─dplyr::rename(., address = values)
   16. ├─dplyr::select(., -address)
   17. ├─tidyr::unnest(., values)
   18. └─tidyr::hoist(., address, "values")
   19.   └─tidyr:::df_simplify(...)
   20.     └─tidyr:::col_simplify(...)
   21.       ├─base::tryCatch(vec_unchop(x_scalars, ptype = x_ptype), vctrs_error_incompatible_type = function(e) x)
   22.       │ └─base tryCatchList(expr, classes, parentenv, handlers)
   23.       │   └─base tryCatchOne(expr, names, parentenv, handlers[[1L]])
   24.       │     └─base doTryCatch(return(expr), name, parentenv, handler)
   25.       └─vctrs::vec_unchop(x_scalars, ptype = x_ptype)
   26.         └─vctrs `<fn>`()
   27.           └─vctrs:::set_names_fallback(x = x, names = names)
   28.             ├─base::`names<-`(`*tmp*`, value = names)
   29.             └─vctrs:::`names<-.vctrs_vctr`(`*tmp*`, value = names)
   30.               └─rlang::abort("If any elements are named, all elements must be named.")
  ── Failure (test-encrypt.R:147:3): sign with/without body ──────────────────────
  `body %>% encrypt(FALSE, TRUE, FALSE) %>% as.character()` threw an error.
  Message: If any elements are named, all elements must be named.
  Class:   rlang_error/error/condition
  Backtrace:
       ▆
    1. ├─testthat::expect_error(...) at test-encrypt.R:147:2
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat .capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. ├─body %>% encrypt(FALSE, TRUE, FALSE) %>% as.character()
    7. ├─base::as.character(.)
    8. ├─emayili:::as.character.envelope(.)
    9. │ ├─emayili:::encrypt_body(...) at emayili/R/envelope.R:137:2
   10. │ │ └─parties %>% select(type, email = raw) at emayili/R/encrypt.R:49:4
   11. │ └─emayili::parties(x) at emayili/R/envelope.R:137:2
   12. │   └─... %>% ... at emayili/R/parties.R:21:2
   13. ├─dplyr::select(., type, email = raw)
   14. ├─dplyr::mutate(...)
   15. ├─dplyr::rename(., address = values)
   16. ├─dplyr::select(., -address)
   17. ├─tidyr::unnest(., values)
   18. └─tidyr::hoist(., address, "values")
   19.   └─tidyr:::df_simplify(...)
   20.     └─tidyr:::col_simplify(...)
   21.       ├─base::tryCatch(vec_unchop(x_scalars, ptype = x_ptype), vctrs_error_incompatible_type = function(e) x)
   22.       │ └─base tryCatchList(expr, classes, parentenv, handlers)
   23.       │   └─base tryCatchOne(expr, names, parentenv, handlers[[1L]])
   24.       │     └─base doTryCatch(return(expr), name, parentenv, handler)
   25.       └─vctrs::vec_unchop(x_scalars, ptype = x_ptype)
   26.         └─vctrs `<fn>`()
   27.           └─vctrs:::set_names_fallback(x = x, names = names)
   28.             ├─base::`names<-`(`*tmp*`, value = names)
   29.             └─vctrs:::`names<-.vctrs_vctr`(`*tmp*`, value = names)
   30.               └─rlang::abort("If any elements are named, all elements must be named.")
  ── Error (test-parties.R:8:3): generate parties table ──────────────────────────
  <vctrs_error_scalar_type/vctrs_error/rlang_error/error/condition>
  Error in `stop_vctrs(msg, "vctrs_error_scalar_type", actual = x)`: Input must be a vector, not a <header> object.
  Backtrace:
       ▆
    1. ├─emayili::parties(msg) at test-parties.R:8:2
    2. │ └─... %>% ... at emayili/R/parties.R:21:2
    3. ├─dplyr::mutate(...)
    4. ├─dplyr::rename(., address = values)
    5. ├─dplyr::select(., -address)
    6. ├─tidyr::unnest(., values)
    7. ├─tidyr::hoist(., address, "values")
    8. │ └─purrr::map(...)
    9. │   └─tidyr .f(.x[[i]], ...)
   10. │     └─tidyr:::strike(x, plucker)
   11. │       └─vctrs::vec_size(x)
   12. └─vctrs:::stop_scalar_type(`<fn>`(`<header>`), "")
   13.   └─vctrs:::stop_vctrs(msg, "vctrs_error_scalar_type", actual = x)
   14.     └─rlang::abort(message, class = c(class, "vctrs_error"), ...)
  
  [ FAIL 12 | WARN 0 | SKIP 12 | PASS 188 ]
  Error: Test failures
  Execution halted