Revision 80c7b427b73eabcf1cbf64adf47708e2640d3ffb authored by Nitesh Turaga on 29 October 2019, 17:11:02 UTC, committed by Nitesh Turaga on 29 October 2019, 17:11:02 UTC
1 parent 32a8d5c
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