Skip to main content

Browse the archive

https://github.com/ctlab/phantasus
21 September 2022, 08:00:11 UTC
Revision 5a1f686c5b46f8fc7fcb11316787d5a87d67ab4a authored by Alexey Sergushichev on 30 September 2020, 12:26:01 UTC, committed by Alexey Sergushichev on 30 September 2020, 12:26:01 UTC 
Update JS
1 parent 8d87c9a
Raw File
Tip revision: 5a1f686c5b46f8fc7fcb11316787d5a87d67ab4a authored by Alexey Sergushichev on 30 September 2020, 12:26:01 UTC
Update JS
Tip revision: 5a1f686
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