Running examples in ‘tidysq-Ex.R’ failed
The error most likely occurred in:

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: ==.sq
> ### Title: Compare sq objects
> ### Aliases: ==.sq
> 
> ### ** Examples
> 
> # Creating objects to work on:
> sq_dna_1 <- sq(c("ACTGCTG", "CTTAGA", "CCCT", "CTGAATGT"),
+                alphabet = "dna_bsc")
> sq_dna_2 <- sq(c("ACTGCTG", "CTTAGA", "CCCT", "CTGAATGT"),
+                alphabet = "dna_bsc")
> sq_dna_3 <- sq(c("ACTGCTG", "CTTAGA", "GGAA"),
+                alphabet = "dna_bsc")
> sq_dna_4 <- sq(c("ACTGCTG", "CTTAGA", "CCCT", "GTNANN"),
+                alphabet = "dna_ext")
> sq_ami_1 <- sq(c("ACTGCTG", "NIKAAR", "CCCT", "CTGAATGT"),
+                alphabet = "ami_bsc")
> sq_unt <- sq(c("AHSNLVSCTK$SH%&VS", "YQTVKA&#BSKJGY",
+                "CCCT", "AVYI#VSV&*DVGDJCFA"))
> 
> # Comparing sq object with an object of the same length:
> sq_dna_1 == sq_dna_2
[1] TRUE TRUE TRUE TRUE
> sq_dna_1 == c("ACTGCTG", "CTTAGA", "CCCT", "CTGAATGT")
[1] TRUE TRUE TRUE TRUE
> 
> # Cannot compare sq objects of different lengths:
> ## Not run: 
> ##D sq_dna_1 == sq_dna_3
> ##D sq_dna_1 == c("AAA", "CCC")
> ## End(Not run)
> 
> # Unless comparing sq object with scalar value:
> sq_dna_1 == "CTTAGA"
[1] FALSE  TRUE FALSE FALSE
> 
> # It's possible to compare basic and extended types:
> sq_dna_1 == sq_dna_4
[1]  TRUE  TRUE  TRUE FALSE
> 
> # Mixing DNA, RNA and amino acid types throws an error, however:
> ## Not run: 
> ##D sq_dna_1 == sq_ami_1
> ## End(Not run)
> 
> # On the other hand, unt sq is acceptable everywhere:
> sq_dna_1 == sq_unt
Error in `vec_c()`:
! Can't combine `..1` <tidysq alphabet> and `..2` <tidysq alphabet>.
✖ Some attributes are incompatible.
ℹ The author of the class should implement vctrs methods.
ℹ See <https://vctrs.r-lib.org/reference/faq-error-incompatible-attributes.html>.
Backtrace:
     ▆
  1. ├─tidysq:::`==.sq`(sq_dna_1, sq_unt)
  2. │ └─vctrs::vec_equal(e1, e2)
  3. │   └─vctrs:::vec_cast_common_params(!!!args, .to = .ptype)
  4. │     └─vctrs:::vec_cast_common_opts(...)
  5. │       └─vctrs (local) `<fn>`()
  6. │         └─tidysq:::vec_ptype2.sq_dna_bsc.sq_unt(...)
  7. │           ├─tidysq:::sq_ptype(union(alphabet(x), alphabet(y)), "unt")
  8. │           │ ├─vctrs::new_list_of(...)
  9. │           │ │ └─vctrs:::new_list_of0(x = x, ptype = ptype, ..., class = class)
 10. │           │ │   └─vctrs::new_vctr(x, ..., ptype = ptype, class = c(class, "vctrs_list_of"))
 11. │           │ └─tidysq:::sq_alphabet(str_alphabet, type)
 12. │           │   └─vctrs::new_vctr(alph, type = type, class = c("sq_alphabet", "character"))
 13. │           │     └─rlang::is_vector(.data)
 14. │           └─base::union(alphabet(x), alphabet(y))
 15. │             ├─base::c(x, y[match(y, x, 0L) == 0L])
 16. │             └─vctrs:::c.vctrs_vctr(x, y[match(y, x, 0L) == 0L])
 17. │               └─vctrs::vec_c(...)
 18. └─vctrs (local) `<fn>`()
 19.   └─vctrs::vec_default_ptype2(...)
 20.     ├─base::withRestarts(...)
 21.     │ └─base (local) withOneRestart(expr, restarts[[1L]])
 22.     │   └─base (local) doWithOneRestart(return(expr), restart)
 23.     └─vctrs::stop_incompatible_type(...)
 24.       └─vctrs:::stop_incompatible(...)
 25.         └─vctrs:::stop_vctrs(...)
 26.           └─rlang::abort(message, class = c(class, "vctrs_error"), ..., call = call)
Execution halted