# NOT RUN {
ht <- huxtable(a = 1:5, b = 5:1)
ht <- set_font(ht, 2:4, 1:2, 'times')
font(ht)
ht <- set_font(ht, where(ht == 1), 'palatino')
font(ht)
ht <- set_font(ht, odds, evens, 'dingbats')
font(ht)
ht <- set_align(ht, 2:3, 1:2, c('right', 'center'), byrow = TRUE)
align(ht)
# }
Run the code above in your browser using DataCamp Workspace