Add padding around edges of table.

gt <- gtable(unit(1, "null"), unit(1, "null"))
gt <- gtable_add_grob(gt, rectGrob(gp = gpar(fill = "black")), 1, 1)

plot(gt)

plot of chunk gtable_add_padding

plot(cbind(gt, gt))

plot of chunk gtable_add_padding

plot(rbind(gt, gt))

plot of chunk gtable_add_padding

pad <- gtable_add_padding(gt, unit(1, "cm"))
plot(pad)

plot of chunk gtable_add_padding

plot(cbind(pad, pad))

plot of chunk gtable_add_padding

plot(rbind(pad, pad))

plot of chunk gtable_add_padding