tbl_survfit ignores factor levels order in stratification variable for survfit objects

[michaelcurry1123]

If you want to specify factor level order it is ignored in tbl_survfit() . Example below

library(gtsummary)
library(survival)
# make 0 drug b and first factor level 
trial <- mutate(trial, trt = ifelse(trt == "Drug A",1,0),
                trt = factor(trt, levels = c(0,1),labels = c("Drug B", "Drug A")))

mod1 <- survfit(Surv(ttdeath, death)~trt,trial)

mod2 <- coxph(Surv(ttdeath, death)~trt, trial)
# tbl_survfit still puts drug a first
tbl_survfit(mod1, times = 12, sort = c("Drug B", "Drug A"))
# factor level respected in cox model/ tbl_regression 
tbl_regression(mod2)