fix: a bug when a pattern is in the middle of a annotation unit

Ronggui · Apr 2, 2019 · 3cca663 · 3cca663
1 parent 0166f72
commit 3cca663
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/autoCoding.R b/R/autoCoding.R
@@ -72,7 +72,7 @@ codingBySearchOneFile <- function(pattern, fid, cid, seperator, concatenate, ...
 
         ## get the matching analysis units
         unit_start_reference <- findInterval(pattern_matches, unit_start_indexes)
-        unit_end_reference   <- findInterval(pattern_matches + attr(pattern_matches, "match.length"), unit_end_indexes)
+        unit_end_reference   <- findInterval(pattern_matches + attr(pattern_matches, "match.length"), unit_start_indexes, left.open = TRUE)
 
         if(concatenate){
             ## get a logical array with true values for start references that we need to skip