Select the first sequence matching the identifier

src/alignment.r

@@ -24,9 +24,9 @@ parse_data <- function(files) {
   return(list(sequences, vj_segments, vdj_dataframe))
 }
 
-# TODO Test if grep can return more than one match
 get_vj_sequence <- function(identifier, names, sequences) {
-  row <- grep(names, pattern = identifier)
+  matches <- grep(names, pattern = identifier)
+  row <- matches[1]
   return(as.character(sequences[row]))
 }