Skip to main content

Browse the archive

Revision 1366c314de676f59a1c23ed7665dec7413e0c1c2 authored by Alexey Sergushichev on 11 September 2018, 14:58:16 UTC, committed by Alexey Sergushichev on 11 September 2018, 14:58:16 UTC 
Merge branch 'develop' of github.com:ctlab/phantasus into develop
2 parent s e93cb86 + cc1ee9d
Raw File
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