From fbc78132b8cf28f710e1cec2dd8a51a149003cf7 Mon Sep 17 00:00:00 2001
From: Simeon <51403284+simeross@users.noreply.github.com>
Date: Tue, 31 Oct 2023 07:56:02 +0100
Subject: [PATCH] Update variant_classifier.R
---
R/variant_classifier.R | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/R/variant_classifier.R b/R/variant_classifier.R
index aab21bc..2a89828 100644
--- a/R/variant_classifier.R
+++ b/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)
--
GitLab