Displaying 1 result from an estimated 1 matches for "tablines".
Did you mean:
ablines
2001 Jul 01
1
indexing
...)," ")
}
tr.index <- function(fn) {
## cat(fn,"\n")
lines <- scan(fn,what=character(),sep="\n",quiet=TRUE)
ret <- NULL
if (length(lines)>0) {
## paste continuation lines together
## look for initial whitespace; might miss funny formats
tablines <- grep("^[ \t]",lines)
lines <- sub("^[\t ]*","",lines) ## now delete initial whitespace
## join "continuation sets" (sets of consecutive lines with leading whitespace)
if (length(tablines)>0) {
v <- 1:length(lines)
csets...