Skip to main content

Browse the archive

https://github.com/cran/SoDA
04 June 2021, 00:42:29 UTC
Revision abb11e53fd1d4cd6d80e90fa5a000adda65fe209 authored by jmc on 14 July 2008, 00:00:00 UTC, committed by Gabor Csardi on 14 July 2008, 00:00:00 UTC 
version 1.0-3
1 parent 9e5b9bb
Raw File
Tip revision: abb11e53fd1d4cd6d80e90fa5a000adda65fe209 authored by jmc on 14 July 2008, 00:00:00 UTC
version 1.0-3
Tip revision: abb11e5
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)
}
back to top