Running ‘testthat.R’ [161s/232s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > # This is necessary because some tests fail otherwise; see https://github.com/hadley/testthat/issues/144
  > Sys.setenv("R_TESTS" = "")
  > 
  > library(testthat)
  > library(tidybayes)
  > 
  > test_check("tidybayes")
  ── 1. Error: compare_levels respects groups of input data frame (@test.compare_l
  Assigned data `draws[, c(".chain", ".iteration", ".draw")]` must be compatible with existing data.
  ✖ Existing data has 12000 rows.
  ✖ Element 1 of assigned data has 1000 rows.
  ℹ Only vectors of size 1 are recycled.
  Backtrace:
    8. tidybayes::spread_draws(., b[i, j])
    9. base::lapply(...)
   10. tidybayes:::FUN(X[[i]], ...)
   11. tidybayes:::spread_draws_(...)
   12. tidybayes:::spread_draws_long_(...)
   14. tibble:::`[<-.tbl_df`(...)
   15. tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   16. tibble:::vectbl_recycle_rhs(...)
   17. base::tryCatch(...)
   18. base:::tryCatchList(expr, classes, parentenv, handlers)
   19. base:::tryCatchOne(expr, names, parentenv, handlers[[1L]])
   20. value[[3L]](cond)
  
  ── 2. Error: regular expressions for parameter names work on indexed parameters 
  Assigned data `draws[, c(".chain", ".iteration", ".draw")]` must be compatible with existing data.
  ✖ Existing data has 3000 rows.
  ✖ Element 1 of assigned data has 1000 rows.
  ℹ Only vectors of size 1 are recycled.
  Backtrace:
    8. tidybayes::spread_draws(., c(tau, u_tau)[i])
    9. base::lapply(...)
   10. tidybayes:::FUN(X[[i]], ...)
   11. tidybayes:::spread_draws_(...)
   12. tidybayes:::spread_draws_long_(...)
   14. tibble:::`[<-.tbl_df`(...)
   15. tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   16. tibble:::vectbl_recycle_rhs(...)
   17. base::tryCatch(...)
   18. base:::tryCatchList(expr, classes, parentenv, handlers)
   19. base:::tryCatchOne(expr, names, parentenv, handlers[[1L]])
   20. value[[3L]](cond)
  
  ── 3. Error: gather_draws works on a combination of 0 and 1-dimensional values (
  Assigned data `draws[, c(".chain", ".iteration", ".draw")]` must be compatible with existing data.
  ✖ Existing data has 3000 rows.
  ✖ Element 1 of assigned data has 1000 rows.
  ℹ Only vectors of size 1 are recycled.
  Backtrace:
    8. tidybayes::spread_draws(., tau[i], typical_r)
    9. base::lapply(...)
   10. tidybayes:::FUN(X[[i]], ...)
   11. tidybayes:::spread_draws_(...)
   12. tidybayes:::spread_draws_long_(...)
   14. tibble:::`[<-.tbl_df`(...)
   15. tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   16. tibble:::vectbl_recycle_rhs(...)
   17. base::tryCatch(...)
   18. base:::tryCatchList(expr, classes, parentenv, handlers)
   19. base:::tryCatchOne(expr, names, parentenv, handlers[[1L]])
   20. value[[3L]](cond)
  
  ── 4. Error: gather_variables works on the results of spread_draws with multiple
  Assigned data `draws[, c(".chain", ".iteration", ".draw")]` must be compatible with existing data.
  ✖ Existing data has 12000 rows.
  ✖ Element 1 of assigned data has 1000 rows.
  ℹ Only vectors of size 1 are recycled.
  Backtrace:
    8. tidybayes::spread_draws(., b[i, v], tau[i])
    9. base::lapply(...)
   10. tidybayes:::FUN(X[[i]], ...)
   11. tidybayes:::spread_draws_(...)
   12. tidybayes:::spread_draws_long_(...)
   14. tibble:::`[<-.tbl_df`(...)
   15. tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   16. tibble:::vectbl_recycle_rhs(...)
   17. base::tryCatch(...)
   18. base:::tryCatchList(expr, classes, parentenv, handlers)
   19. base:::tryCatchOne(expr, names, parentenv, handlers[[1L]])
   20. value[[3L]](cond)
  
  ── 5. Error: (unknown) (@test.geom_interval.R#15)  ─────────────────────────────
  Assigned data `draws[, c(".chain", ".iteration", ".draw")]` must be compatible with existing data.
  ✖ Existing data has 300 rows.
  ✖ Element 1 of assigned data has 100 rows.
  ℹ Only vectors of size 1 are recycled.
  Backtrace:
    8. tidybayes::spread_draws(., u_tau[i])
    9. base::lapply(...)
   10. tidybayes:::FUN(X[[i]], ...)
   11. tidybayes:::spread_draws_(...)
   12. tidybayes:::spread_draws_long_(...)
   14. tibble:::`[<-.tbl_df`(...)
   15. tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   16. tibble:::vectbl_recycle_rhs(...)
   17. base::tryCatch(...)
   18. base:::tryCatchList(expr, classes, parentenv, handlers)
   19. base:::tryCatchOne(expr, names, parentenv, handlers[[1L]])
   20. value[[3L]](cond)
  
  ── 6. Error: (unknown) (@test.geom_pointinterval.R#14)  ────────────────────────
  Assigned data `draws[, c(".chain", ".iteration", ".draw")]` must be compatible with existing data.
  ✖ Existing data has 3000 rows.
  ✖ Element 1 of assigned data has 1000 rows.
  ℹ Only vectors of size 1 are recycled.
  Backtrace:
    8. tidybayes::spread_draws(., u_tau[i])
    9. base::lapply(...)
   10. tidybayes:::FUN(X[[i]], ...)
   11. tidybayes:::spread_draws_(...)
   12. tidybayes:::spread_draws_long_(...)
   14. tibble:::`[<-.tbl_df`(...)
   15. tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   16. tibble:::vectbl_recycle_rhs(...)
   17. base::tryCatch(...)
   18. base:::tryCatchList(expr, classes, parentenv, handlers)
   19. base:::tryCatchOne(expr, names, parentenv, handlers[[1L]])
   20. value[[3L]](cond)
  
  ── 7. Error: spread_draws works on a variable with one unnamed index  ──────────
  Assigned data `draws[, c(".chain", ".iteration", ".draw")]` must be compatible with existing data.
  ✖ Existing data has 30 rows.
  ✖ Element 1 of assigned data has 10 rows.
  ℹ Only vectors of size 1 are recycled.
  Backtrace:
    1. tidybayes::spread_draws(RankCorr_s, tau[i])
    2. base::lapply(...)
    3. tidybayes:::FUN(X[[i]], ...)
    4. tidybayes:::spread_draws_(...)
    5. tidybayes:::spread_draws_long_(...)
    7. tibble:::`[<-.tbl_df`(...)
    8. tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
    9. tibble:::vectbl_recycle_rhs(...)
   10. base::tryCatch(...)
   11. base:::tryCatchList(expr, classes, parentenv, handlers)
   12. base:::tryCatchOne(expr, names, parentenv, handlers[[1L]])
   13. value[[3L]](cond)
  
  ── 8. Error: spread_draws works on a variable with one named index  ────────────
  Assigned data `draws[, c(".chain", ".iteration", ".draw")]` must be compatible with existing data.
  ✖ Existing data has 30 rows.
  ✖ Element 1 of assigned data has 10 rows.
  ℹ Only vectors of size 1 are recycled.
  Backtrace:
    1. tidybayes::spread_draws(RankCorr_i, tau[i])
    2. base::lapply(...)
    3. tidybayes:::FUN(X[[i]], ...)
    4. tidybayes:::spread_draws_(...)
    5. tidybayes:::spread_draws_long_(...)
    7. tibble:::`[<-.tbl_df`(...)
    8. tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
    9. tibble:::vectbl_recycle_rhs(...)
   10. base::tryCatch(...)
   11. base:::tryCatchList(expr, classes, parentenv, handlers)
   12. base:::tryCatchOne(expr, names, parentenv, handlers[[1L]])
   13. value[[3L]](cond)
  
  ── 9. Error: spread_draws works on a variable with one anonymous wide index (@te
  Assigned data `draws[, c(".chain", ".iteration", ".draw")]` must be compatible with existing data.
  ✖ Existing data has 30 rows.
  ✖ Element 1 of assigned data has 10 rows.
  ℹ Only vectors of size 1 are recycled.
  Backtrace:
    1. testthat::expect_equal(spread_draws(RankCorr_s, tau[..]), ref)
    4. tidybayes::spread_draws(RankCorr_s, tau[..])
    5. base::lapply(...)
    6. tidybayes:::FUN(X[[i]], ...)
    7. tidybayes:::spread_draws_(...)
    8. tidybayes:::spread_draws_long_(...)
   10. tibble:::`[<-.tbl_df`(...)
   11. tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   12. tibble:::vectbl_recycle_rhs(...)
   13. base::tryCatch(...)
   14. base:::tryCatchList(expr, classes, parentenv, handlers)
   15. base:::tryCatchOne(expr, names, parentenv, handlers[[1L]])
   16. value[[3L]](cond)
  
  ── 10. Error: spread_draws works on a variable with one named wide index (@test.
  Assigned data `draws[, c(".chain", ".iteration", ".draw")]` must be compatible with existing data.
  ✖ Existing data has 30 rows.
  ✖ Element 1 of assigned data has 10 rows.
  ℹ Only vectors of size 1 are recycled.
  Backtrace:
    1. testthat::expect_equal(...)
    4. tidybayes::spread_draws(RankCorr_i, tau[i] | i)
    5. base::lapply(...)
    6. tidybayes:::FUN(X[[i]], ...)
    7. tidybayes:::spread_draws_(...)
    8. tidybayes:::spread_draws_long_(...)
   10. tibble:::`[<-.tbl_df`(...)
   11. tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   12. tibble:::vectbl_recycle_rhs(...)
   13. base::tryCatch(...)
   14. base:::tryCatchList(expr, classes, parentenv, handlers)
   15. base:::tryCatchOne(expr, names, parentenv, handlers[[1L]])
   16. value[[3L]](cond)
  
  ── 11. Error: spread_draws works on a variable with two named dimensions  ──────
  Assigned data `draws[, c(".chain", ".iteration", ".draw")]` must be compatible with existing data.
  ✖ Existing data has 120 rows.
  ✖ Element 1 of assigned data has 10 rows.
  ℹ Only vectors of size 1 are recycled.
  Backtrace:
    1. tidybayes::spread_draws(RankCorr_ij, b[i, j])
    2. base::lapply(...)
    3. tidybayes:::FUN(X[[i]], ...)
    4. tidybayes:::spread_draws_(...)
    5. tidybayes:::spread_draws_long_(...)
    7. tibble:::`[<-.tbl_df`(...)
    8. tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
    9. tibble:::vectbl_recycle_rhs(...)
   10. base::tryCatch(...)
   11. base:::tryCatchList(expr, classes, parentenv, handlers)
   12. base:::tryCatchOne(expr, names, parentenv, handlers[[1L]])
   13. value[[3L]](cond)
  
  ── 12. Error: spread_draws works on a variable with two named dimensions, one th
  Assigned data `draws[, c(".chain", ".iteration", ".draw")]` must be compatible with existing data.
  ✖ Existing data has 120 rows.
  ✖ Element 1 of assigned data has 10 rows.
  ℹ Only vectors of size 1 are recycled.
  Backtrace:
    1. tidybayes::spread_draws(RankCorr_ij, b[i, j] | j)
    2. base::lapply(...)
    3. tidybayes:::FUN(X[[i]], ...)
    4. tidybayes:::spread_draws_(...)
    5. tidybayes:::spread_draws_long_(...)
    7. tibble:::`[<-.tbl_df`(...)
    8. tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
    9. tibble:::vectbl_recycle_rhs(...)
   10. base::tryCatch(...)
   11. base:::tryCatchList(expr, classes, parentenv, handlers)
   12. base:::tryCatchOne(expr, names, parentenv, handlers[[1L]])
   13. value[[3L]](cond)
  
  ── 13. Error: spread_draws works on a variable with one named index and one wide
  Assigned data `draws[, c(".chain", ".iteration", ".draw")]` must be compatible with existing data.
  ✖ Existing data has 120 rows.
  ✖ Element 1 of assigned data has 10 rows.
  ℹ Only vectors of size 1 are recycled.
  Backtrace:
    1. tidybayes::spread_draws(RankCorr_i, b[i, ..])
    2. base::lapply(...)
    3. tidybayes:::FUN(X[[i]], ...)
    4. tidybayes:::spread_draws_(...)
    5. tidybayes:::spread_draws_long_(...)
    7. tibble:::`[<-.tbl_df`(...)
    8. tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
    9. tibble:::vectbl_recycle_rhs(...)
   10. base::tryCatch(...)
   11. base:::tryCatchList(expr, classes, parentenv, handlers)
   12. base:::tryCatchOne(expr, names, parentenv, handlers[[1L]])
   13. value[[3L]](cond)
  
  ── 14. Failure: spread_draws does not allow extraction of two variables simultan
  `spread_draws(RankCorr_s, c(tau, u_tau)[..])` threw an error with unexpected message.
  Expected match: "Cannot extract draws from multiple variables in wide format."
  Actual message: "Assigned data `draws[, c(\".chain\", \".iteration\", \".draw\")]` must be compatible with existing data.\n✖ Existing data has 30 rows.\n✖ Element 1 of assigned data has 10 rows.\nℹ Only vectors of size 1 are recycled."
  Backtrace:
    1. testthat::expect_error(...)
    6. tidybayes::spread_draws(RankCorr_s, c(tau, u_tau)[..])
    7. base::lapply(...)
    8. tidybayes:::FUN(X[[i]], ...)
    9. tidybayes:::spread_draws_(...)
   10. tidybayes:::spread_draws_long_(...)
   12. tibble:::`[<-.tbl_df`(...)
   13. tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   14. tibble:::vectbl_recycle_rhs(...)
   15. base::tryCatch(...)
   16. base:::tryCatchList(expr, classes, parentenv, handlers)
   17. base:::tryCatchOne(expr, names, parentenv, handlers[[1L]])
   18. value[[3L]](cond)
  
  ── 15. Failure: spread_draws does not allow extraction of two variables simultan
  `spread_draws(RankCorr_s, c(tau, u_tau)[i] | i)` threw an error with unexpected message.
  Expected match: "Cannot extract draws from multiple variables in wide format."
  Actual message: "Assigned data `draws[, c(\".chain\", \".iteration\", \".draw\")]` must be compatible with existing data.\n✖ Existing data has 30 rows.\n✖ Element 1 of assigned data has 10 rows.\nℹ Only vectors of size 1 are recycled."
  Backtrace:
    1. testthat::expect_error(...)
    6. tidybayes::spread_draws(RankCorr_s, c(tau, u_tau)[i] | i)
    7. base::lapply(...)
    8. tidybayes:::FUN(X[[i]], ...)
    9. tidybayes:::spread_draws_(...)
   10. tidybayes:::spread_draws_long_(...)
   12. tibble:::`[<-.tbl_df`(...)
   13. tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   14. tibble:::vectbl_recycle_rhs(...)
   15. base::tryCatch(...)
   16. base:::tryCatchList(expr, classes, parentenv, handlers)
   17. base:::tryCatchOne(expr, names, parentenv, handlers[[1L]])
   18. value[[3L]](cond)
  
  ── 16. Error: spread_draws correctly extracts multiple variables simultaneously 
  Assigned data `draws[, c(".chain", ".iteration", ".draw")]` must be compatible with existing data.
  ✖ Existing data has 30 rows.
  ✖ Element 1 of assigned data has 10 rows.
  ℹ Only vectors of size 1 are recycled.
  Backtrace:
    1. testthat::expect_equal(...)
    4. tidybayes::spread_draws(RankCorr_i, c(tau, u_tau)[i])
    5. base::lapply(...)
    6. tidybayes:::FUN(X[[i]], ...)
    7. tidybayes:::spread_draws_(...)
    8. tidybayes:::spread_draws_long_(...)
   10. tibble:::`[<-.tbl_df`(...)
   11. tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   12. tibble:::vectbl_recycle_rhs(...)
   13. base::tryCatch(...)
   14. base:::tryCatchList(expr, classes, parentenv, handlers)
   15. base:::tryCatchOne(expr, names, parentenv, handlers[[1L]])
   16. value[[3L]](cond)
  
  ── 17. Error: spread_draws multispec syntax joins results correctly (@test.sprea
  Assigned data `draws[, c(".chain", ".iteration", ".draw")]` must be compatible with existing data.
  ✖ Existing data has 30 rows.
  ✖ Element 1 of assigned data has 10 rows.
  ℹ Only vectors of size 1 are recycled.
  Backtrace:
    1. tidybayes::spread_draws(RankCorr_s, typical_r)
    8. dplyr::inner_join(...)
   16. base::lapply(...)
   17. tidybayes:::FUN(X[[i]], ...)
   18. tidybayes:::spread_draws_(...)
   19. tidybayes:::spread_draws_long_(...)
   21. tibble:::`[<-.tbl_df`(...)
   22. tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   23. tibble:::vectbl_recycle_rhs(...)
   24. base::tryCatch(...)
   25. base:::tryCatchList(expr, classes, parentenv, handlers)
   26. base:::tryCatchOne(expr, names, parentenv, handlers[[1L]])
   27. value[[3L]](cond)
  
  ── 18. Error: spread_draws multispec with different dimensions retains grouping 
  Assigned data `draws[, c(".chain", ".iteration", ".draw")]` must be compatible with existing data.
  ✖ Existing data has 30 rows.
  ✖ Element 1 of assigned data has 10 rows.
  ℹ Only vectors of size 1 are recycled.
  Backtrace:
    8. tidybayes::spread_draws(., typical_r, tau[i], b[i, j])
    9. base::lapply(...)
   10. tidybayes:::FUN(X[[i]], ...)
   11. tidybayes:::spread_draws_(...)
   12. tidybayes:::spread_draws_long_(...)
   14. tibble:::`[<-.tbl_df`(...)
   15. tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   16. tibble:::vectbl_recycle_rhs(...)
   17. base::tryCatch(...)
   18. base:::tryCatchList(expr, classes, parentenv, handlers)
   19. base:::tryCatchOne(expr, names, parentenv, handlers[[1L]])
   20. value[[3L]](cond)
  
  ── 19. Error: groups from spread_draws retain factor level names (@test.spread_d
  Assigned data `draws[, c(".chain", ".iteration", ".draw")]` must be compatible with existing data.
  ✖ Existing data has 30 rows.
  ✖ Element 1 of assigned data has 10 rows.
  ℹ Only vectors of size 1 are recycled.
  Backtrace:
    9. tidybayes::spread_draws(., tau[i])
   10. base::lapply(...)
   11. tidybayes:::FUN(X[[i]], ...)
   12. tidybayes:::spread_draws_(...)
   13. tidybayes:::spread_draws_long_(...)
   15. tibble:::`[<-.tbl_df`(...)
   16. tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   17. tibble:::vectbl_recycle_rhs(...)
   18. base::tryCatch(...)
   19. base:::tryCatchList(expr, classes, parentenv, handlers)
   20. base:::tryCatchOne(expr, names, parentenv, handlers[[1L]])
   21. value[[3L]](cond)
  
  ── 20. Error: empty dimensions are dropped (@test.spread_draws.R#265)  ─────────
  Assigned data `draws[, c(".chain", ".iteration", ".draw")]` must be compatible with existing data.
  ✖ Existing data has 30 rows.
  ✖ Element 1 of assigned data has 10 rows.
  ℹ Only vectors of size 1 are recycled.
  Backtrace:
    8. tidybayes::spread_draws(., tau[i])
    9. base::lapply(...)
   10. tidybayes:::FUN(X[[i]], ...)
   11. tidybayes:::spread_draws_(...)
   12. tidybayes:::spread_draws_long_(...)
   14. tibble:::`[<-.tbl_df`(...)
   15. tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   16. tibble:::vectbl_recycle_rhs(...)
   17. base::tryCatch(...)
   18. base:::tryCatchList(expr, classes, parentenv, handlers)
   19. base:::tryCatchOne(expr, names, parentenv, handlers[[1L]])
   20. value[[3L]](cond)
  
  ── 21. Error: dimensions with existing names as strings are made wide as strings
  Assigned data `draws[, c(".chain", ".iteration", ".draw")]` must be compatible with existing data.
  ✖ Existing data has 20 rows.
  ✖ Element 1 of assigned data has 10 rows.
  ℹ Only vectors of size 1 are recycled.
  Backtrace:
    8. tidybayes::spread_draws(., x[k])
    9. base::lapply(...)
   10. tidybayes:::FUN(X[[i]], ...)
   11. tidybayes:::spread_draws_(...)
   12. tidybayes:::spread_draws_long_(...)
   14. tibble:::`[<-.tbl_df`(...)
   15. tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   16. tibble:::vectbl_recycle_rhs(...)
   17. base::tryCatch(...)
   18. base:::tryCatchList(expr, classes, parentenv, handlers)
   19. base:::tryCatchOne(expr, names, parentenv, handlers[[1L]])
   20. value[[3L]](cond)
  
  ── 22. Error: regular expressions for variable names work on indexed variables (
  Assigned data `draws[, c(".chain", ".iteration", ".draw")]` must be compatible with existing data.
  ✖ Existing data has 30 rows.
  ✖ Element 1 of assigned data has 10 rows.
  ℹ Only vectors of size 1 are recycled.
  Backtrace:
    1. tidybayes::spread_draws(RankCorr_s, c(tau, u_tau)[i])
    2. base::lapply(...)
    3. tidybayes:::FUN(X[[i]], ...)
    4. tidybayes:::spread_draws_(...)
    5. tidybayes:::spread_draws_long_(...)
    7. tibble:::`[<-.tbl_df`(...)
    8. tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
    9. tibble:::vectbl_recycle_rhs(...)
   10. base::tryCatch(...)
   11. base:::tryCatchList(expr, classes, parentenv, handlers)
   12. base:::tryCatchOne(expr, names, parentenv, handlers[[1L]])
   13. value[[3L]](cond)
  
  ── 23. Error: nested matrices are correctly extracted (@test.spread_draws.R#364)
  Assigned data `draws[, c(".chain", ".iteration", ".draw")]` must be compatible with existing data.
  ✖ Existing data has 40 rows.
  ✖ Element 1 of assigned data has 2 rows.
  ℹ Only vectors of size 1 are recycled.
  Backtrace:
    1. testthat::expect_equal(...)
    4. tidybayes:::spread_draws_long_(test_draws, "x", c("i", "."))
    6. tibble:::`[<-.tbl_df`(...)
    7. tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
    8. tibble:::vectbl_recycle_rhs(...)
    9. base::tryCatch(...)
   10. base:::tryCatchList(expr, classes, parentenv, handlers)
   11. base:::tryCatchOne(expr, names, parentenv, handlers[[1L]])
   12. value[[3L]](cond)
  
  ── 24. Error: nested 3d arrays are correctly extracted (@test.spread_draws.R#394
  Assigned data `draws[, c(".chain", ".iteration", ".draw")]` must be compatible with existing data.
  ✖ Existing data has 24 rows.
  ✖ Element 1 of assigned data has 2 rows.
  ℹ Only vectors of size 1 are recycled.
  Backtrace:
    1. testthat::expect_equal(...)
    4. tidybayes:::spread_draws_long_(test_draws, "x", c(".", ".", "."))
    6. tibble:::`[<-.tbl_df`(...)
    7. tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
    8. tibble:::vectbl_recycle_rhs(...)
    9. base::tryCatch(...)
   10. base:::tryCatchList(expr, classes, parentenv, handlers)
   11. base:::tryCatchOne(expr, names, parentenv, handlers[[1L]])
   12. value[[3L]](cond)
  
  ── 25. Error: nested matrices with multiple variables are correctly extracted (@
  Assigned data `draws[, c(".chain", ".iteration", ".draw")]` must be compatible with existing data.
  ✖ Existing data has 32 rows.
  ✖ Element 1 of assigned data has 2 rows.
  ℹ Only vectors of size 1 are recycled.
  Backtrace:
    1. testthat::expect_equal(...)
    4. tidybayes:::spread_draws_long_(...)
    6. tibble:::`[<-.tbl_df`(...)
    7. tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
    8. tibble:::vectbl_recycle_rhs(...)
    9. base::tryCatch(...)
   10. base:::tryCatchList(expr, classes, parentenv, handlers)
   11. base:::tryCatchOne(expr, names, parentenv, handlers[[1L]])
   12. value[[3L]](cond)
  
  ── 26. Error: nested matrices with named columns correctly extracted (@test.spre
  Assigned data `draws[, c(".chain", ".iteration", ".draw")]` must be compatible with existing data.
  ✖ Existing data has 8 rows.
  ✖ Element 1 of assigned data has 2 rows.
  ℹ Only vectors of size 1 are recycled.
  Backtrace:
    1. testthat::expect_equal(...)
    4. tidybayes:::spread_draws_long_(test_draws, "x", c(".", "."))
    6. tibble:::`[<-.tbl_df`(...)
    7. tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
    8. tibble:::vectbl_recycle_rhs(...)
    9. base::tryCatch(...)
   10. base:::tryCatchList(expr, classes, parentenv, handlers)
   11. base:::tryCatchOne(expr, names, parentenv, handlers[[1L]])
   12. value[[3L]](cond)
  
  ── 27. Error: nested ragged arrays are correctly extracted (@test.spread_draws.R
  Assigned data `draws[, c(".chain", ".iteration", ".draw")]` must be compatible with existing data.
  ✖ Existing data has 8 rows.
  ✖ Element 1 of assigned data has 2 rows.
  ℹ Only vectors of size 1 are recycled.
  Backtrace:
    1. testthat::expect_equal(...)
    4. tidybayes:::spread_draws_long_(test_draws, "x", c(".", "."))
    6. tibble:::`[<-.tbl_df`(...)
    7. tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
    8. tibble:::vectbl_recycle_rhs(...)
    9. base::tryCatch(...)
   10. base:::tryCatchList(expr, classes, parentenv, handlers)
   11. base:::tryCatchOne(expr, names, parentenv, handlers[[1L]])
   12. value[[3L]](cond)
  
  ── 28. Error: ungather_draws works on a simple parameter with no dimensions (@te
  Assigned data `draws[, c(".chain", ".iteration", ".draw")]` must be compatible with existing data.
  ✖ Existing data has 12000 rows.
  ✖ Element 1 of assigned data has 1000 rows.
  ℹ Only vectors of size 1 are recycled.
  Backtrace:
    8. tidybayes::gather_draws(., typical_r, b[i, j])
    9. base::lapply(...)
   10. tidybayes:::FUN(X[[i]], ...)
   13. tidybayes:::spread_draws_(...)
   14. tidybayes:::spread_draws_long_(...)
   16. tibble:::`[<-.tbl_df`(...)
   17. tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   18. tibble:::vectbl_recycle_rhs(...)
   19. base::tryCatch(...)
   20. base:::tryCatchList(expr, classes, parentenv, handlers)
   21. base:::tryCatchOne(expr, names, parentenv, handlers[[1L]])
   22. value[[3L]](cond)
  
  ── 29. Error: ungather_draws works on multiple parameters with different dimensi
  Assigned data `draws[, c(".chain", ".iteration", ".draw")]` must be compatible with existing data.
  ✖ Existing data has 12000 rows.
  ✖ Element 1 of assigned data has 1000 rows.
  ℹ Only vectors of size 1 are recycled.
  Backtrace:
    8. tidybayes::gather_draws(., b[i, j], c(u_tau, tau)[i])
    9. base::lapply(...)
   10. tidybayes:::FUN(X[[i]], ...)
   13. tidybayes:::spread_draws_(...)
   14. tidybayes:::spread_draws_long_(...)
   16. tibble:::`[<-.tbl_df`(...)
   17. tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   18. tibble:::vectbl_recycle_rhs(...)
   19. base::tryCatch(...)
   20. base:::tryCatchList(expr, classes, parentenv, handlers)
   21. base:::tryCatchOne(expr, names, parentenv, handlers[[1L]])
   22. value[[3L]](cond)
  
  ── 30. Error: ungather_draws(drop_indices = TRUE) drops draw indices (@test.unga
  Assigned data `draws[, c(".chain", ".iteration", ".draw")]` must be compatible with existing data.
  ✖ Existing data has 12000 rows.
  ✖ Element 1 of assigned data has 1000 rows.
  ℹ Only vectors of size 1 are recycled.
  Backtrace:
    8. tidybayes::gather_draws(., b[i, j], c(u_tau, tau)[i])
    9. base::lapply(...)
   10. tidybayes:::FUN(X[[i]], ...)
   13. tidybayes:::spread_draws_(...)
   14. tidybayes:::spread_draws_long_(...)
   16. tibble:::`[<-.tbl_df`(...)
   17. tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   18. tibble:::vectbl_recycle_rhs(...)
   19. base::tryCatch(...)
   20. base:::tryCatchList(expr, classes, parentenv, handlers)
   21. base:::tryCatchOne(expr, names, parentenv, handlers[[1L]])
   22. value[[3L]](cond)
  
  ── 31. Error: unspread_draws works on a simple parameter with no dimensions (@te
  Assigned data `draws[, c(".chain", ".iteration", ".draw")]` must be compatible with existing data.
  ✖ Existing data has 12000 rows.
  ✖ Element 1 of assigned data has 1000 rows.
  ℹ Only vectors of size 1 are recycled.
  Backtrace:
    8. tidybayes::spread_draws(., typical_r, b[i, j])
    9. base::lapply(...)
   10. tidybayes:::FUN(X[[i]], ...)
   11. tidybayes:::spread_draws_(...)
   12. tidybayes:::spread_draws_long_(...)
   14. tibble:::`[<-.tbl_df`(...)
   15. tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   16. tibble:::vectbl_recycle_rhs(...)
   17. base::tryCatch(...)
   18. base:::tryCatchList(expr, classes, parentenv, handlers)
   19. base:::tryCatchOne(expr, names, parentenv, handlers[[1L]])
   20. value[[3L]](cond)
  
  ── 32. Error: unspread_draws works on a multiple parameters with different dimen
  Assigned data `draws[, c(".chain", ".iteration", ".draw")]` must be compatible with existing data.
  ✖ Existing data has 12000 rows.
  ✖ Element 1 of assigned data has 1000 rows.
  ℹ Only vectors of size 1 are recycled.
  Backtrace:
    8. tidybayes::spread_draws(., b[i, j], c(u_tau, tau)[i])
    9. base::lapply(...)
   10. tidybayes:::FUN(X[[i]], ...)
   11. tidybayes:::spread_draws_(...)
   12. tidybayes:::spread_draws_long_(...)
   14. tibble:::`[<-.tbl_df`(...)
   15. tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   16. tibble:::vectbl_recycle_rhs(...)
   17. base::tryCatch(...)
   18. base:::tryCatchList(expr, classes, parentenv, handlers)
   19. base:::tryCatchOne(expr, names, parentenv, handlers[[1L]])
   20. value[[3L]](cond)
  
  ── 33. Error: unspread_draws(drop_indices = TRUE) drops draw indices (@test.unsp
  Assigned data `draws[, c(".chain", ".iteration", ".draw")]` must be compatible with existing data.
  ✖ Existing data has 12000 rows.
  ✖ Element 1 of assigned data has 1000 rows.
  ℹ Only vectors of size 1 are recycled.
  Backtrace:
    8. tidybayes::spread_draws(., b[i, j], c(u_tau, tau)[i])
    9. base::lapply(...)
   10. tidybayes:::FUN(X[[i]], ...)
   11. tidybayes:::spread_draws_(...)
   12. tidybayes:::spread_draws_long_(...)
   14. tibble:::`[<-.tbl_df`(...)
   15. tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   16. tibble:::vectbl_recycle_rhs(...)
   17. base::tryCatch(...)
   18. base:::tryCatchList(expr, classes, parentenv, handlers)
   19. base:::tryCatchOne(expr, names, parentenv, handlers[[1L]])
   20. value[[3L]](cond)
  
  ══ testthat results  ═══════════════════════════════════════════════════════════
  [ OK: 289 | SKIPPED: 108 | WARNINGS: 5 | FAILED: 33 ]
  1. Error: compare_levels respects groups of input data frame (@test.compare_levels.R#180) 
  2. Error: regular expressions for parameter names work on indexed parameters (@test.gather_draws.R#23) 
  3. Error: gather_draws works on a combination of 0 and 1-dimensional values (with correct groups) (@test.gather_draws.R#31) 
  4. Error: gather_variables works on the results of spread_draws with multiple variables and dimensions (@test.gather_variables.R#32) 
  5. Error: (unknown) (@test.geom_interval.R#15) 
  6. Error: (unknown) (@test.geom_pointinterval.R#14) 
  7. Error: spread_draws works on a variable with one unnamed index 
  8. Error: spread_draws works on a variable with one named index 
  9. Error: spread_draws works on a variable with one anonymous wide index (@test.spread_draws.R#132) 
  1. ...
  
  Error: testthat unit tests failed
  Execution halted