diff --git a/R/pgx-init.R b/R/pgx-init.R index 5ffcfcae..f8ebe3ee 100644 --- a/R/pgx-init.R +++ b/R/pgx-init.R @@ -140,6 +140,10 @@ pgx.initialize <- function(pgx) { } pgx$contrasts <- new.contr } + # If contrasts is present and numeric, got to run contrastAsLabels + if (is.numeric(pgx$contrasts)) { + pgx$contrasts <- contrastAsLabels(pgx$contrasts) + } ## ----------------------------------------------------------------