Update variant_classifier.R

R/variant_classifier.R

@@ -28,7 +28,8 @@ variant_classifier <- function(
   # Create a table for clustered sequences and filter out clusters with only one sequence
   clustab_tbl <- cluster_tbl_named(clustered_sequences) %>%
     left_join(tibble(seqnames = unlist(map(clustered_sequences, names)),
-                     seqs = as.character(Biostrings:: unlist(clustered_sequences))),
+                     seqs = as.character(unlist(Biostrings::DNAStringSetList(
+                       clustered_sequences)))),
               by = 'seqnames') %>%
     dplyr::filter(clus_size > 1)