Displaying 1 result from an estimated 1 matches for "hdrdf".
Did you mean:
hdr
2009 Aug 21
1
trouble with Vista & reading files
...tmp <- try(scan(paste(dataDir,"/", hdrFiles[1], sep=""), what =
"character",
sep="\n", quiet=TRUE), silent=TRUE)
if (is.null(attr(tmp,"class"))) {
dateCols <- grep("[0-9][0-9]/[0-9][0-9]/20[01][0-9]",tmp)
hdrDF <-
data.frame(tmp[(dateCols-1)],tmp[dateCols],stringsAsFactors=FALSE)
hdrDF$LotDate <- rep(hdrDF[1,2],length(hdrDF[,1])) ; hdrDF <- hdrDF[-1,]
hdrDF[1,1] <- tmp[(dateCols-2)][1]
names(hdrDF) <- c(slotCol,"Date","LotDate")
hdrDF[,slotCol] <- subs...