https://github.com/ctlab/phantasus
Revision cecd45bf030dcf96aa7cabe92b95b4981a805399 authored by Vladislav Kamenev on 04 February 2019, 16:36:18 UTC, committed by Vladislav Kamenev on 04 February 2019, 16:36:18 UTC
1 parent 893a86d
Tip revision: cecd45bf030dcf96aa7cabe92b95b4981a805399 authored by Vladislav Kamenev on 04 February 2019, 16:36:18 UTC
Update JS. FGSEA tool
Update JS. FGSEA tool
Tip revision: cecd45b
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 ...