R/well.info.R

In ornelles/ddpcr: Digital Droplet PCR with QuantaSoft data from BioRad

#########################################################################################
# well.info
#
# support function to parse character vector into numeric prefix, well, row and
# column, return as a list with well reformatted according to sprintf format
# in "format" using upper or lower case as indicated in case
#
#########################################################################################

well.info <- function(v, format = "%02d", case = c("upper", "lower")) {
	case <- match.arg(case)
	v <- tolower(as.character(v))
	vv <- strsplit(v, "[[:alpha:]]+")					# separate prefix from column
	row <- gsub("[[:digit:]]", "", v)					# keep only letters
	column <- as.numeric(sapply(vv, function(x) x[2]))	# keep only numbers
	prefix <- sapply(vv, function(x) x[1])
	if (!all(row %in% letters[1:26]))
		stop("bad row value")
	if (any(column < 1 | column > 384))
		stop("bad column value")
	if (case == "upper")
		row <- toupper(row)
	well <- paste(row, sprintf(format, column), sep = "")
	return(list(prefix = prefix, well = well, row = row,
				column = as.character(column)))
}