Content - 4c3296a127f0557b6f0382a2a4c0b2dcde9b904b - 2c6747c/R/renameColumn.R

swh:1:snp:0c004a03453a29b80f921a24433f7e780b9ceb53

Tip revision: b0922d4a9d37c67192d9b43a288fe2952d42b9e2 authored by Alexey Sergushichev on 20 October 2018, 13:07:32 UTC
version bump to 1.1.5

Tip revision: b0922d4

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