factor levels with variable names cause ugly output

[lisa-avery]

dt <- data.frame(molecular=sample(c("EGFR","ALK","KRAS","None"),50,replace=T)) %>% mutate(EGFR=ifelse(molecular == "EGFR","Yes","No"))
rm_covsum(data=dt, covs=names(dt)) # UGLY
rm_covsum(data=dt, covs=names(dt)[2:1]) # OK, because variable name is before factor

[lisa-avery]

Fixed 14 March 2023