swh:1:snp:a4c99a50dc49f82b591f268001b320f8c3ca0041
Tip revision: ce60f670aac0a708d3a9af5f0cf46a752d46ba8a authored by John M Chambers on 28 October 2020, 07:59:48 UTC
version 1.0-6.1
version 1.0-6.1
Tip revision: ce60f67
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
}