Skip to main content
Revision 24584c83d82ac18653d1382b61fa43632a85425e authored by Alexey Sergushichev on 30 May 2020, 12:33:15 UTC, committed by Alexey Sergushichev on 30 May 2020, 12:33:15 UTC
version bump
1 parent 42f1e47
Raw File Download
renameColumn.R 
renameColumn <- function (es, isFeature = TRUE, oldName, newName) {
    if (isFeature) {
        fData(es)[[newName]] <- fData(es)[[oldName]]
        fData(es)[[oldName]] <- NULL
    } else {
        phenoData(es)[[newName]] <- phenoData(es)[[oldName]]
        phenoData(es)[[oldName]] <- NULL
    }

    assign("es", es, envir = parent.frame())
}