From fb5d781c66c4b515817541656bf529519038957e Mon Sep 17 00:00:00 2001
From: coolneng <akasroua@gmail.com>
Date: Wed, 21 Apr 2021 21:02:56 +0200
Subject: [PATCH] Add space to sequence ID for easier parsing

---
 src/repertoire.r | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/repertoire.r b/src/repertoire.r
index 13c47fa..79e98ed 100644
--- a/src/repertoire.r
+++ b/src/repertoire.r
@@ -13,7 +13,7 @@ generate_repertoire <- function(number_of_sequences) {
 process_data <- function(data) {
   dna_sequence <- Biostrings::DNAStringSet(data$sequence)
   data$sequence <- Biostrings::reverseComplement(dna_sequence)
-  names(data$sequence) <- paste(rownames(data), data$v_call, data$j_call)
+  names(data$sequence) <- paste(rownames(data), data$v_call, data$j_call, " ")
   Biostrings::writeXStringSet(data$sequence, "data/sequence.fasta")
 }