Running 'testthat.R' [17s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > library(testthat)
  > library(tidyseurat)
  Loading required package: ttservice
  Loading required package: SeuratObject
  Attaching sp
  ========================================
  tidyseurat version 0.5.3
  If you use TIDYSEURAT in published research, please cite:
  
  Mangiola et al. Interfacing Seurat with the R tidy universe. Bioinformatics 2021.
  
  This message can be suppressed by:
    suppressPackageStartupMessages(library(tidyseurat))
    
  To restore the Seurat default display use options("restore_Seurat_show" = TRUE) 
  ========================================
  
  
  Attaching package: 'tidyseurat'
  
  The following objects are masked from 'package:ttservice':
  
      bind_cols, bind_rows
  
  The following object is masked from 'package:stats':
  
      filter
  
  > 
  > test_check("tidyseurat")
  
    |                                                                            
    |                                                                      |   0%
    |                                                                            
    |======================================================================| 100%
  Calculating gene variances
  0%   10   20   30   40   50   60   70   80   90   100%
  [----|----|----|----|----|----|----|----|----|----|
  **************************************************|
  Calculating feature variances of standardized and clipped values
  0%   10   20   30   40   50   60   70   80   90   100%
  [----|----|----|----|----|----|----|----|----|----|
  **************************************************|
  
    |                                                                            
    |                                                                      |   0%
    |                                                                            
    |======================================================================| 100%
  Calculating gene variances
  0%   10   20   30   40   50   60   70   80   90   100%
  [----|----|----|----|----|----|----|----|----|----|
  **************************************************|
  Calculating feature variances of standardized and clipped values
  0%   10   20   30   40   50   60   70   80   90   100%
  [----|----|----|----|----|----|----|----|----|----|
  **************************************************|
  [ FAIL 2 | WARN 5 | SKIP 1 | PASS 24 ]
  
  ══ Skipped tests ═══════════════════════════════════════════════════════════════
  • empty test (1)
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error (test-dplyr.R:32:3): bind_rows ────────────────────────────────────────
  Error in `nchar(xs)`: number of characters is not computable in "bytes" encoding, element 1
  Backtrace:
       ▆
    1. ├─testthat::expect_equal(...) at test-dplyr.R:32:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─... %>% nrow
    5. ├─base::nrow(.)
    6. ├─dplyr::count(., n)
    7. └─dplyr:::count.data.frame(., n)
    8.   ├─dplyr::tally(out, wt = !!enquo(wt), sort = sort, name = name)
    9.   └─dplyr:::tally.data.frame(...)
   10.     └─dplyr:::check_name(name, group_vars(x))
   11.       └─rlang::inform(...)
   12.         ├─base::withRestarts(...)
   13.         │ └─base (local) withOneRestart(expr, restarts[[1L]])
   14.         │   └─base (local) doWithOneRestart(return(expr), restart)
   15.         └─base::signalCondition(cnd)
   16.           ├─base::conditionMessage(cond)
   17.           └─rlang:::conditionMessage.rlang_message(cond)
   18.             └─rlang::cnd_message(c)
   19.               └─rlang:::cnd_message_format(cnd, ...)
   20.                 └─rlang (local) cli_format(glue_escape(lines))
   21.                   └─rlang:::.rlang_cli_format(x, cli::format_message)
   22.                     └─cli::cli_format(x, .envir = emptyenv())
   23.                       └─cli:::fmt(...)
   24.                         └─cli:::cli__fmt(rec, collapse, strip_newline, app)
   25.                           ├─base::do.call(app[[msg$type]], msg$args)
   26.                           └─cli (local) `<fn>`(text = `<named list>`, id = "cli-24140-3", class = NULL)
   27.                             └─cli:::clii_bullets(app, text, id, class)
   28.                               └─base::lapply(...)
   29.                                 └─cli (local) FUN(X[[i]], ...)
   30.                                   └─app$text(text[[i]])
   31.                                     └─cli:::clii_text(app, text)
   32.                                       └─app$xtext(text)
   33.                                         └─cli:::clii__xtext(...)
   34.                                           └─cli::ansi_strwrap(text, exdent = exdent, width = app$get_width(extra = padding))
   35.                                             └─base::lapply(pars, ansi_trimws)
   36.                                               └─cli (local) FUN(X[[i]], ...)
  ── Error (test-dplyr.R:45:3): bind_cols ────────────────────────────────────────
  Error in `dplyr::bind_cols(tts[[1]][[]], tts[[2]], .id = .id)`: number of characters is not computable in "bytes" encoding, element 1
  Backtrace:
       ▆
    1. ├─... %>% expect_equal(2) at test-dplyr.R:45:2
    2. ├─testthat::expect_equal(., 2)
    3. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    4. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    5. ├─base::ncol(.)
    6. ├─dplyr::select(., nCount_RNA...2, nFeature_RNA...3)
    7. ├─tidyseurat::bind_cols(., pbmc_small_bind)
    8. ├─tidyseurat:::bind_cols.Seurat(., pbmc_small_bind)
    9. │ └─dplyr::bind_cols(tts[[1]][[]], tts[[2]], .id = .id)
   10. │   ├─dplyr:::fix_call(vec_cbind(!!!dots, .name_repair = .name_repair))
   11. │   │ └─base::withCallingHandlers(...)
   12. │   └─vctrs::vec_cbind(!!!dots, .name_repair = .name_repair)
   13. ├─vctrs:::describe_repair(`<chr>`, `<chr>`)
   14. │ └─rlang::names_inform_repair(orig_names, names)
   15. │   └─rlang::inform(message = message, class = "rlib_message_name_repair")
   16. │     ├─base::withRestarts(...)
   17. │     │ └─base (local) withOneRestart(expr, restarts[[1L]])
   18. │     │   └─base (local) doWithOneRestart(return(expr), restart)
   19. │     └─base::signalCondition(cnd)
   20. │       ├─base::conditionMessage(cond)
   21. │       └─rlang:::conditionMessage.rlang_message(cond)
   22. │         └─rlang::cnd_message(c)
   23. │           └─rlang:::cnd_message_format(cnd, ...)
   24. │             └─rlang (local) cli_format(glue_escape(lines))
   25. │               └─rlang:::.rlang_cli_format(x, cli::format_message)
   26. │                 └─cli::cli_format(x, .envir = emptyenv())
   27. │                   └─cli:::fmt(...)
   28. │                     └─cli:::cli__fmt(rec, collapse, strip_newline, app)
   29. │                       ├─base::do.call(app[[msg$type]], msg$args)
   30. │                       └─cli (local) `<fn>`(text = `<named list>`, id = "cli-24140-60", class = NULL)
   31. │                         └─cli:::clii_bullets(app, text, id, class)
   32. │                           └─base::lapply(...)
   33. │                             └─cli (local) FUN(X[[i]], ...)
   34. │                               └─app$text(text[[i]])
   35. │                                 └─cli:::clii_text(app, text)
   36. │                                   └─app$xtext(text)
   37. │                                     └─cli:::clii__xtext(...)
   38. │                                       └─cli::ansi_strwrap(text, exdent = exdent, width = app$get_width(extra = padding))
   39. │                                         └─base::lapply(pars, ansi_trimws)
   40. │                                           └─cli (local) FUN(X[[i]], ...)
   41. └─base::.handleSimpleError(...)
   42.   └─dplyr (local) h(simpleError(msg, call))
   43.     └─rlang::cnd_signal(cnd)
  
  [ FAIL 2 | WARN 5 | SKIP 1 | PASS 24 ]
  Error: Test failures
  Execution halted