Enable variable names in backticks? about finalfit HOT 3 CLOSED

  dt<-data.frame(
    y=factor(c('yes','yes','yes','no','no','no')) ,
    x1=c(1,3,5,2,4,6),
    `second x`=c(1,2,4,6,5,3),
    x3=1:6,
    check.names=F
  )

  
IV<-c('x1', 'second x')     # notice no backticks here!!! !
DV<-'y'
  
dt<-dt[,c(DV,IV)] # drop varialbes not used in model

cn<-colnames(dt) # remember original colnames

dt <- dt %>% 
  data.frame() %>% # replace spaces etc. with dots
  ff_relabel(cn)  # assign original colnames as labels
  
finalfit(dt,
         dependent=make.names(DV),
         explanatory=make.names(IV))  # run model with dots in colnames and nice labels

  Dependent: y                  no       yes          OR (univariable)      OR (multivariable)
2           x1 Mean (SD) 4.0 (2.0) 3.0 (2.0) 0.70 (0.20-1.83, p=0.485) 0.50 (NA-2.97, p=0.600)
1     second x Mean (SD) 4.7 (1.5) 2.3 (1.5) 0.30 (0.02-1.07, p=0.183) 0.22 (NA-1.08, p=0.347)

ff_merge(
  summary_factorlist(dt, dependent, explanatory, fit_id = TRUE),
  glmmulti(dt, dependent, explanatory) %>% 
    fit2df() %>% 
    mutate(
      explanatory = gsub("`", "", explanatory)
    ),
  last_merge = TRUE
)