#' plate96
#'
#' Helper tool for 96-well plate coordinates
#'
#' @param from Well coordinates.
#' @param to Well coordinates.
#' @param by By \code{row} (default) or \code{column}.
#'
#' @note \code{by="column"} is not yet implemented.
#'
#' @examples
#'
#' plate96("A01", "B08")
#' plate96("C01", "B08")
#'
#' @export plate96
plate96 <- function(from, to, by="row") {
by <- match.arg(by)
plate <- c(
"A01", "A02", "A03", "A04", "A05", "A06", "A07", "A08", "A09", "A10", "A11", "A12",
"B01", "B02", "B03", "B04", "B05", "B06", "B07", "B08", "B09", "B10", "B11", "B12",
"C01", "C02", "C03", "C04", "C05", "C06", "C07", "C08", "C09", "C10", "C11", "C12",
"D01", "D02", "D03", "D04", "D05", "D06", "D07", "D08", "D09", "D10", "D11", "D12",
"E01", "E02", "E03", "E04", "E05", "E06", "E07", "E08", "E09", "E10", "E11", "E12",
"F01", "F02", "F03", "F04", "F05", "F06", "F07", "F08", "F09", "F10", "F11", "F12",
"G01", "G02", "G03", "G04", "G05", "G06", "G07", "G08", "G09", "G10", "G11", "G12",
"H01", "H02", "H03", "H04", "H05", "H06", "H07", "H08", "H09", "H10", "H11", "H12")
checkIsWellName <- function(x) {
errorMessage <- "Input must be a single well coordinate such as 'A01', 'F11', ..."
if (length(x) != 1) stop(errorMessage)
if (! x %in% plate) stop(errorMessage)
}
checkIsWellName(from)
checkIsWellName(to)
plate[grep(from, plate):grep(to, plate)]
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.