R/readSampleSheet.R

Defines functions readSampleSheet

Documented in readSampleSheet

readSampleSheet <- function(sheet = "sampleSheet.csv"){


  data <- readLines(sheet)

  sampleStart <- grep("\\[Data\\]", data,ignore.case = TRUE)

  experimentData <- NULL

  if(!grepl("\\[Header\\]", data[[1]],ignore.case = TRUE)){
      warning("Expected to see \\[Header\\] in the first line of the sample sheet")
  }
  
  if(length(sampleStart) == 0) {
      stop("Expected to see \\[Data\\] somewhere in the sample sheet")
  }
  else {
      experimentData[["sampleSheet"]] <- read.csv(sheet, skip = sampleStart)
  }

  for(i in 2:(sampleStart-1)){
    
      field <- strsplit(data[[i]], ",")[[1]][1]
      experimentData[[field]] <- strsplit(data[[i]], ",")[[1]][2]
   
  }

  experimentData

}

Try the beadarray package in your browser

Any scripts or data that you put into this service are public.

beadarray documentation built on Nov. 8, 2020, 4:51 p.m.