Displaying 1 result from an estimated 1 matches for "con_".
Did you mean:
con
2010 Oct 06
0
multiple record types from a single file efficiently?
...type
# we'll grab the line, compare the character in col position flag_pos to
type_flag (column 3 in dd_by_type) and
# rbind to the data with the right formatting
i <- 1
width <- max(sum(unlist(dd_by_type[1:dim(dd_by_type)[1],3])))
#for (i in 1:dim(dd_by_type)[1]) {
#assign(paste("con_",i,sep=""),file(paste(file.path(indata),"_",i,".csv",sep=""),
open="w"))
#}
while (length(line <-
(scan(indata,skip=(i-1),nlines=1,what=character(),fill=TRUE, sep=","))) >
0){
typeflag <- as.integer(substr(line,flag_pos,flag...