Content - 4c3296a127f0557b6f0382a2a4c0b2dcde9b904b - 7d88580/R/renameColumn.R

visit type:

https://github.com/ctlab/phantasus

21 July 2021, 18:39:27 UTC

Tip revision: c6bb0e960554a23eb712690cbd7f8e3f7d79ca0d authored by Alexey Sergushichev on 02 July 2021, 13:19:49 UTC
Update js

Tip revision: c6bb0e9

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())
}