# NOT RUN {
ht <- huxtable(a = 1:3, b = 1:3)
bold(ht) <- TRUE
bold(ht)
print_screen(ht)
ht <- huxtable(a = 1:3, b = 3:1)
set_bold(ht, TRUE)
set_bold(ht, 1:2, 1, TRUE)
set_bold(ht, 1:2, 1:2, c(TRUE, FALSE), byrow = TRUE)
set_bold(ht, where(ht == 1), TRUE)
# }
Run the code above in your browser using DataLab