a probelm about the code

[ZZY1016]

Dear sir,
Now I want to use your code to analyze Lycosidaes' sequences which downloaded from BOLD. However, the identifiers is different with yours. It shows >AACTA4173-20|Venatrix_pseudospeciosa like this.
So I revised the code as spp = sapply(strsplit(names(barcodes), "-\|"), function(a){a[2]}),
neighbor_each_column = sapply(sapply(inter_list, as.matrix), function(f){
sapply(strsplit(rownames(which(f == min(f), arr.ind = T)), "-\|"), function(g){g[2]})
})
most_divergent_each_column = sapply(sapply(inter_list, as.matrix), function(j){
sapply(strsplit(rownames(which(j == max(j), arr.ind = T)), "-\|"), function(k){k[2]})
})
However, when I run this line:metrics.Lycosidae = variability(Lycosidae.barcodes), it shows Error in as.matrix.DNAbin(x) :
DNA sequences in list not of the same length. But I have already these sequences before input. I am sure these sequences are the same lengths.
If convenice, could you help me to analyze this problem?
Extremely thank you:)