ht <- as_hux(matrix(LETTERS[1:4], 2, 2))
ht <- set_all_borders(ht)
ht
restack_down(ht, 1)
restack_across(ht, 1)
# headers:
restack_across(jams, 2)
restack_across(jams, 2,
headers = FALSE)
# on_remainder:
restack_across(jams, 3,
on_remainder = "fill")
Run the code above in your browser using DataLab