Revision 22f39e5e474c3c4f77a63ca59d26da9e8a6edddd authored by Alexey Sergushichev on 20 December 2019, 16:39:40 UTC, committed by Alexey Sergushichev on 20 December 2019, 16:39:40 UTC
1 parent 27d7ae0
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())
}
Computing file changes ...