swh:1:snp:a4c99a50dc49f82b591f268001b320f8c3ca0041
Tip revision: dc000f2a5f006d137f66716b086025d618bf8306 authored by John M Chambers on 14 July 2008, 00:00:00 UTC
version 1.0-5
version 1.0-5
Tip revision: dc000f2
splitRepeated.R
splitRepeated <- function(lines,
separator = "[[:space:]]+",
numeric = NA) {
value <- strsplit(lines, separator)
if(!identical(numeric, FALSE)) {
warned <- FALSE
opt <- options(warn = -1); on.exit(options(opt))
nValue <- withCallingHandlers(lapply(value, as.numeric),
warning = function(cond) warned <<- TRUE)
if(!warned || identical(numeric, TRUE))
value <- nValue
options(opt)
if(warned && identical(numeric, TRUE))
warning("NAs introduced in coercing to numeric")
}
value
}