swh:1:snp:a4c99a50dc49f82b591f268001b320f8c3ca0041
Raw File
Tip revision: 1c016a1d9d1dc7690f7c256204f737661d261cb0 authored by jmc on 20 September 2007, 00:00:00 UTC
version 0.96
Tip revision: 1c016a1
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