Add padding around edges of table.

Description

Add padding around edges of table.

Usage

1
gtable_add_padding(x, padding)

Arguments

x

a gtable object

padding

vector of length 4: top, right, bottom, left. Normal recycling rules apply.

Examples

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
library(grid)
gt <- gtable(unit(1, "null"), unit(1, "null"))
gt <- gtable_add_grob(gt, rectGrob(gp = gpar(fill = "black")), 1, 1)

plot(gt)
plot(cbind(gt, gt))
plot(rbind(gt, gt))

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