Add space to sequence ID for easier parsing

2021-04-21 21:02:56 +02:00
parent 35406497a3
commit fb5d781c66
1 changed files with 1 additions and 1 deletions
--- 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")
 }