I am reading someone\'s code from Github, which contains the function mydesc_table.
*tab1 <- mydesc_table(table1, by = "gender",
