Running ‘spelling.R’ [0s/0s]
  Running ‘testthat.R’ [9s/11s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(tidysq)
  
  Attaching package: 'tidysq'
  
  The following object is masked from 'package:base':
  
      paste
  
  > 
  > test_check("tidysq")
  [ FAIL 4 | WARN 0 | SKIP 1 | PASS 789 ]
  
  ══ Skipped tests (1) ═══════════════════════════════════════════════════════════
  • warning handling on C++ side is poorly implemented (1):
    'test-warnings.R:39:3'
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-concatenate.R:93:3'): c() generalizes any standard type and untyped sequences to unt sq ──
  <vctrs_error_ptype2/vctrs_error_incompatible_type/vctrs_error_incompatible/vctrs_error/rlang_error/error/condition>
  Error in `vec_c(...)`: Can't combine `..1` <tidysq alphabet> and `..2` <tidysq alphabet>.
  x Some attributes are incompatible.
  i The author of the class should implement vctrs methods.
  i See <https://vctrs.r-lib.org/reference/faq-error-incompatible-attributes.html>.
  Backtrace:
       ▆
    1. ├─testthat::expect_vector(...) at test-concatenate.R:93:3
    2. │ └─testthat::quasi_label(enquo(object), arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─base::c(sq_dna_bsc, sq_unt, sq_dna_bsc)
    5. ├─vctrs:::c.vctrs_vctr(sq_dna_bsc, sq_unt, sq_dna_bsc)
    6. │ └─vctrs::vec_c(...)
    7. │   └─vctrs (local) `<fn>`()
    8. │     └─tidysq:::vec_ptype2.sq_dna_bsc.sq_unt(...)
    9. │       ├─tidysq:::sq_ptype(union(alphabet(x), alphabet(y)), "unt")
   10. │       │ ├─vctrs::new_list_of(...)
   11. │       │ │ └─vctrs:::new_list_of0(x = x, ptype = ptype, ..., class = class)
   12. │       │ │   └─vctrs::new_vctr(x, ..., ptype = ptype, class = c(class, "vctrs_list_of"))
   13. │       │ └─tidysq:::sq_alphabet(str_alphabet, type)
   14. │       │   └─vctrs::new_vctr(alph, type = type, class = c("sq_alphabet", "character"))
   15. │       │     └─rlang::is_vector(.data)
   16. │       └─base::union(alphabet(x), alphabet(y))
   17. │         ├─base::c(x, y[match(y, x, 0L) == 0L])
   18. │         └─vctrs:::c.vctrs_vctr(x, y[match(y, x, 0L) == 0L])
   19. │           └─vctrs::vec_c(...)
   20. └─vctrs (local) `<fn>`()
   21.   └─vctrs::vec_default_ptype2(...)
   22.     ├─base::withRestarts(...)
   23.     │ └─base (local) withOneRestart(expr, restarts[[1L]])
   24.     │   └─base (local) doWithOneRestart(return(expr), restart)
   25.     └─vctrs::stop_incompatible_type(...)
   26.       └─vctrs:::stop_incompatible(...)
   27.         └─vctrs:::stop_vctrs(...)
   28.           └─rlang::abort(message, class = c(class, "vctrs_error"), ..., call = call)
  ── Error ('test-concatenate.R:114:3'): c() on any standard type and untyped sequences return correct value ──
  <vctrs_error_ptype2/vctrs_error_incompatible_type/vctrs_error_incompatible/vctrs_error/rlang_error/error/condition>
  Error in `vec_c(...)`: Can't combine `..1` <tidysq alphabet> and `..2` <tidysq alphabet>.
  x Some attributes are incompatible.
  i The author of the class should implement vctrs methods.
  i See <https://vctrs.r-lib.org/reference/faq-error-incompatible-attributes.html>.
  Backtrace:
       ▆
    1. ├─testthat::expect_identical(...) at test-concatenate.R:114:3
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─base::c(sq_dna_bsc, sq_unt, sq_dna_bsc)
    5. ├─vctrs:::c.vctrs_vctr(sq_dna_bsc, sq_unt, sq_dna_bsc)
    6. │ └─vctrs::vec_c(...)
    7. │   └─vctrs (local) `<fn>`()
    8. │     └─tidysq:::vec_ptype2.sq_dna_bsc.sq_unt(...)
    9. │       ├─tidysq:::sq_ptype(union(alphabet(x), alphabet(y)), "unt")
   10. │       │ ├─vctrs::new_list_of(...)
   11. │       │ │ └─vctrs:::new_list_of0(x = x, ptype = ptype, ..., class = class)
   12. │       │ │   └─vctrs::new_vctr(x, ..., ptype = ptype, class = c(class, "vctrs_list_of"))
   13. │       │ └─tidysq:::sq_alphabet(str_alphabet, type)
   14. │       │   └─vctrs::new_vctr(alph, type = type, class = c("sq_alphabet", "character"))
   15. │       │     └─rlang::is_vector(.data)
   16. │       └─base::union(alphabet(x), alphabet(y))
   17. │         ├─base::c(x, y[match(y, x, 0L) == 0L])
   18. │         └─vctrs:::c.vctrs_vctr(x, y[match(y, x, 0L) == 0L])
   19. │           └─vctrs::vec_c(...)
   20. └─vctrs (local) `<fn>`()
   21.   └─vctrs::vec_default_ptype2(...)
   22.     ├─base::withRestarts(...)
   23.     │ └─base (local) withOneRestart(expr, restarts[[1L]])
   24.     │   └─base (local) doWithOneRestart(return(expr), restart)
   25.     └─vctrs::stop_incompatible_type(...)
   26.       └─vctrs:::stop_incompatible(...)
   27.         └─vctrs:::stop_vctrs(...)
   28.           └─rlang::abort(message, class = c(class, "vctrs_error"), ..., call = call)
  ── Error ('test-paste.R:29:3'): paste() finds common prototype for all arguments (recycling length 1 vectors if necessary) ──
  <vctrs_error_ptype2/vctrs_error_incompatible_type/vctrs_error_incompatible/vctrs_error/rlang_error/error/condition>
  Error in `vec_c(...)`: Can't combine `..1` <tidysq alphabet> and `..2` <tidysq alphabet>.
  x Some attributes are incompatible.
  i The author of the class should implement vctrs methods.
  i See <https://vctrs.r-lib.org/reference/faq-error-incompatible-attributes.html>.
  Backtrace:
       ▆
    1. ├─testthat::expect_vector(...) at test-paste.R:29:3
    2. │ └─testthat::quasi_label(enquo(object), arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─tidysq::paste(sq_dna_1, sq_unt_3, sq_dna_2)
    5. ├─tidysq:::paste.sq(sq_dna_1, sq_unt_3, sq_dna_2)
    6. │ ├─tidysq:::CPP_paste(vec_cast_common(...), NA_letter)
    7. │ └─vctrs::vec_cast_common(...)
    8. │   └─vctrs (local) `<fn>`()
    9. │     └─tidysq:::vec_ptype2.sq_dna_bsc.sq_unt(...)
   10. │       ├─tidysq:::sq_ptype(union(alphabet(x), alphabet(y)), "unt")
   11. │       │ ├─vctrs::new_list_of(...)
   12. │       │ │ └─vctrs:::new_list_of0(x = x, ptype = ptype, ..., class = class)
   13. │       │ │   └─vctrs::new_vctr(x, ..., ptype = ptype, class = c(class, "vctrs_list_of"))
   14. │       │ └─tidysq:::sq_alphabet(str_alphabet, type)
   15. │       │   └─vctrs::new_vctr(alph, type = type, class = c("sq_alphabet", "character"))
   16. │       │     └─rlang::is_vector(.data)
   17. │       └─base::union(alphabet(x), alphabet(y))
   18. │         ├─base::c(x, y[match(y, x, 0L) == 0L])
   19. │         └─vctrs:::c.vctrs_vctr(x, y[match(y, x, 0L) == 0L])
   20. │           └─vctrs::vec_c(...)
   21. └─vctrs (local) `<fn>`()
   22.   └─vctrs::vec_default_ptype2(...)
   23.     ├─base::withRestarts(...)
   24.     │ └─base (local) withOneRestart(expr, restarts[[1L]])
   25.     │   └─base (local) doWithOneRestart(return(expr), restart)
   26.     └─vctrs::stop_incompatible_type(...)
   27.       └─vctrs:::stop_incompatible(...)
   28.         └─vctrs:::stop_vctrs(...)
   29.           └─rlang::abort(message, class = c(class, "vctrs_error"), ..., call = call)
  ── Error ('test-paste.R:57:3'): paste() correctly merges sq objects of different types and alphabets ──
  <vctrs_error_ptype2/vctrs_error_incompatible_type/vctrs_error_incompatible/vctrs_error/rlang_error/error/condition>
  Error in `vec_c(...)`: Can't combine `..1` <tidysq alphabet> and `..2` <tidysq alphabet>.
  x Some attributes are incompatible.
  i The author of the class should implement vctrs methods.
  i See <https://vctrs.r-lib.org/reference/faq-error-incompatible-attributes.html>.
  Backtrace:
       ▆
    1. ├─testthat::expect_identical(...) at test-paste.R:57:3
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─tidysq::paste(sq_dna_1, sq_unt_3, sq_dna_2)
    5. ├─tidysq:::paste.sq(sq_dna_1, sq_unt_3, sq_dna_2)
    6. │ ├─tidysq:::CPP_paste(vec_cast_common(...), NA_letter)
    7. │ └─vctrs::vec_cast_common(...)
    8. │   └─vctrs (local) `<fn>`()
    9. │     └─tidysq:::vec_ptype2.sq_dna_bsc.sq_unt(...)
   10. │       ├─tidysq:::sq_ptype(union(alphabet(x), alphabet(y)), "unt")
   11. │       │ ├─vctrs::new_list_of(...)
   12. │       │ │ └─vctrs:::new_list_of0(x = x, ptype = ptype, ..., class = class)
   13. │       │ │   └─vctrs::new_vctr(x, ..., ptype = ptype, class = c(class, "vctrs_list_of"))
   14. │       │ └─tidysq:::sq_alphabet(str_alphabet, type)
   15. │       │   └─vctrs::new_vctr(alph, type = type, class = c("sq_alphabet", "character"))
   16. │       │     └─rlang::is_vector(.data)
   17. │       └─base::union(alphabet(x), alphabet(y))
   18. │         ├─base::c(x, y[match(y, x, 0L) == 0L])
   19. │         └─vctrs:::c.vctrs_vctr(x, y[match(y, x, 0L) == 0L])
   20. │           └─vctrs::vec_c(...)
   21. └─vctrs (local) `<fn>`()
   22.   └─vctrs::vec_default_ptype2(...)
   23.     ├─base::withRestarts(...)
   24.     │ └─base (local) withOneRestart(expr, restarts[[1L]])
   25.     │   └─base (local) doWithOneRestart(return(expr), restart)
   26.     └─vctrs::stop_incompatible_type(...)
   27.       └─vctrs:::stop_incompatible(...)
   28.         └─vctrs:::stop_vctrs(...)
   29.           └─rlang::abort(message, class = c(class, "vctrs_error"), ..., call = call)
  
  [ FAIL 4 | WARN 0 | SKIP 1 | PASS 789 ]
  Error: Test failures
  Execution halted