kbt <- function(...){ knitr::kable(..., format.args = list(big.mark = \',\', scientific = F)) %>% kableExtra::kable_styling(c("striped", "