Update variant_classifier.R

R/variant_classifier.R

@@ -134,7 +134,8 @@ variant_classifier <- function(
     ungroup() %>%
     dplyr::filter(rel_abundance > 0)
 
-  aa_info <- find_longest_reading_frames(unlist(unname(clustered_sequences))) %>%
+  aa_info <- find_longest_reading_frames(unlist(unname(
+                Biostrings::DNAStringSetList(clustered_sequences)))) %>%
     mutate(longest_aa_seq = max_width/3) %>%
     select(seqnames, longest_aa_seq)