https://github.com/ctlab/phantasus
Tip revision: d0c13affeb1def1f728f0e57c64e55fc9dc7cb25 authored by Alexey Sergushichev on 21 December 2019, 15:46:32 UTC
update js to fix tests
update js to fix tests
Tip revision: d0c13af
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())
}