Running 'testthat.R' [13s/28s]
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 14 | PASS 184 ]
  
  == Skipped tests ===============================================================
  * non utf8 locale (2)
  * 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:
       x
    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:
       x
    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:
       x
    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:
       x
    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:
       x
    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:
       x
    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:
       x
    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:
       x
    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:
       x
    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:
       x
    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:
       x
    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:
       x
    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 14 | PASS 184 ]
  Error: Test failures
  Execution halted