Другим способом обхода одной и той же информации, которую я делал в прошлом, является замена "match.length"
на "capture.length"
:
x <- c("ACCACCACCAC","ACCACCACCAC")
m <- gregexpr('(?=([AC]C))', x, perl=TRUE)
m <- lapply(m, function(i) {
attr(i,"match.length") <- attr(i,"capture.length")
i
})
regmatches(x,m)
#[[1]]
#[1] "AC" "CC" "AC" "CC" "AC" "CC" "AC"
#
#[[2]]
#[1] "AC" "CC" "AC" "CC" "AC" "CC" "AC"
Вы используете неправильный конструктор для Scanner
. Вы используете это: https://docs.oracle.com/javase/7/docs/api/java/util/Scanner.html#Scanner (java.lang.String) , который создает [ 111], которая имеет строку в качестве входного потока.
Измените конструктор на new Scanner(new FileReader(file.getAbsolutePath()))
.