title: “EPIC Italy CRC Negative 20140825 data” author: “Kelsi Perttula & Will Edmands” date: “Friday, August 29, 2014”

### read in sample acquisition table
masterList <- read.csv("WE_EPIC_CRC_Italy_Neg_2014_08_25 Master Sheet.csv", 
    header = T)
### Add Raw file creation time to the table
file.info <- data.frame(stringsAsFactors = F)
for (i in 1:nrow(masterList)) {
    file.info <- data.frame(rbind(file.info, file.info(as.character(masterList$File.location[i]))[, 
        c(4:6)]), stringsAsFactors = F)
}
### add file creation and modification info to the table
masterList <- data.frame(masterList, file.info)

### save time stamps as characters
masterList[, "mtime"] <- as.character(masterList[, "mtime"])
masterList[, "ctime"] <- as.character(masterList[, "ctime"])
masterList[, "atime"] <- as.character(masterList[, "atime"])

### remove the EPIC ids and replace with random identifier key
masterList$label <- paste(masterList$Rand.number.pair, masterList$MATCH.ID, 
    sep = "-")
masterList$File.location <- paste("D:/Masshunter/Data/Lipidomics/WE_EPIC_CRC_Italy_Neg_2014_08_25 21.35.50/WE_EPIC_CRC_Italy_Neg", 
    masterList$Worklist.Injection.Order, masterList$Rand.number.pair, masterList$MATCH.ID, 
    ".d", sep = "_")
### remove the EPIC ids and replace with random identifier key
masterList <- masterList[, -c(2:4, 12)]
row.names(masterList) <- NULL

library(xtable)
print(xtable(masterList, align = paste(rep("c", length.out = ncol(masterList) + 
    1), collapse = ""), caption = "August 2014 Rappaport Lab CRC Sample Run List"), 
    type = "html", floating = T)