diff --git a/R/variant_classifier.R b/R/variant_classifier.R index 2a89828ce081f743160543e442ad355a6e280036..87baece24e9bd75d6a83cf0fea79367cdc5b84d9 100644 --- a/R/variant_classifier.R +++ b/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') %>%