Update variant_classifier.R

R/variant_classifier.R

@@ -40,7 +40,7 @@ variant_classifier <- function(
       dplyr::filter(seqnames != clus_name)
 
     # Calculate the similarity of each cluster to the reference sequence
-    sim_to_ref_tbl <- map(clustered_seqs, similiarity_to_reference,
+    sim_to_ref_tbl <- map(clustered_sequences, similiarity_to_reference,
                           ref = refstrings) %>%
       discard(is_null) %>%
       bind_rows(.id = 'clus_name') %>%