Revision ce60f670aac0a708d3a9af5f0cf46a752d46ba8a authored by John M Chambers on 28 October 2020, 07:59:48 UTC, committed by cran-robot on 28 October 2020, 07:59:48 UTC
1 parent 698183c
scanRepeated.R
scanRepeated <- function (file, what, ...) {
lines <- readLines(file)
scanText <- function(text, what, quiet = TRUE, ...) {
con <- textConnection(text, "r")
value <- scan(con, what, quiet = quiet, ...)
close(con)
value
}
mapply(scanText, lines, what, MoreArgs = list(...),
SIMPLIFY = FALSE)
}
Computing file changes ...