getColPats: Depricated: Get color patterns with names from another column...

In peterjuv/FunGenPipe: Tools for building function genomics pipelines

Description

Returns columns from phenoData that start with "color_" and have their suffix in common with another column; Names of colors are set from the associated column, e.g., list(color_Sex = stats::setNames(color_Sex, Sex), ...)

Usage

getColPats(eset)

Arguments

eset	ExpressionSet

Value

List of colors, each of length equal to the number of rows in phenoData

Old implementation

getColPats <- function(eset) { assertthat::has_attr(eset, "phenoData") colPats <- list() aNames <- colnames(Biobase::pData(eset)) cNames <- aNames[grep("^color_", aNames, perl=TRUE)] fNames <- sub("^color_", "", cNames) for (i in seq_len(length(fNames))) { colPats[[fNames[i]]] <- stats::setNames(Biobase::pData(eset)[[cNames[i]]], Biobase::pData(eset)[[fNames[i]]]) } colPats }

Examples

## Not run: 
getColPats(Biobase::pData(dataRaw/eset))
getColPats(Biobase::pData(eset))

## End(Not run)

peterjuv/FunGenPipe documentation built on June 18, 2021, 3:38 a.m.