Skip to main content

Browse the archive

https://github.com/ctlab/phantasus
21 July 2021, 18:39:27 UTC
Revision 1345b2dbb9cc7b9781fc163539fe48692bf94c34 authored by Alexey Sergushichev on 31 January 2020, 19:24:18 UTC, committed by Alexey Sergushichev on 31 January 2020, 19:24:18 UTC 
Missed documentation
1 parent 438883b
Raw File
Tip revision: 1345b2dbb9cc7b9781fc163539fe48692bf94c34 authored by Alexey Sergushichev on 31 January 2020, 19:24:18 UTC
Missed documentation
Tip revision: 1345b2d
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())
}
back to top