setScience("Tracker_Analysis", create=TRUE)


f.in <- extractIngestFiles(ext="csv") %>% {.[. == max(.)]}

raw <- readLines(f.in)

matched <- grep("^(\\d{6,}),", raw)
ends <- c(tail(matched, -1) - 1, length(raw))
cbind(matched, ends)

inds <- mapply(function(f, t) seq(from=f, to=t, by=1), f=matched, t=ends)

ll_DTs <- lapply(inds, function(i) {
  as.data.table(read.table(text=raw[c(1,i)], header=TRUE, sep=",", quote='"', stringsAsFactors=FALSE))
})


DT <- fread(f.in, sep=",", na.strings="")

read.table(f.in, header=TRUE, sep=",", quote='"', stringsAsFactors=FALSE)