library(readxl)
Input <- read_excel("/Users/gregg/Downloads/TRACKING_LIST-2022-02-03T20_21_20.674297.xlsx")
MacGlovDemux <- subset(Input, select = c("i7 Index","i5 Index", "External Identifier"))
names(MacGlovDemux) <- c("forwardmid", "reversemid", "samplename")
MacGlovDemux$locus <- "16S"
MacGlovDemux$project <- c("LOCAD2")
MacGlovDemux$wellposition <- c("")
MacGlovDemux$plate <- c("")
MacGlovDemux$midplate <- c("")
MacGlovDemux$substrate <- c("soil")
MacGlovDemux$client_name <- c("mcminn")


LocAd2Demux <- subset(MacGlovDemux, select = c(forwardmid, reversemid, locus, samplename, project, wellposition, plate, midplate, substrate, client_name))
write.csv(LocAd2Demux, "/Users/gregg/Downloads/LocAd2_Demux.csv", quote = FALSE, row.names = FALSE)