## Loading gtable
## Adding files missing in collate: delete.r
r <- lapply(rainbow(6), function(c) rectGrob(gp = gpar(fill = c)))
g <- gtable(unit(rep(2, 6), "cm"), unit(rep(2, 
    6), "cm"))
g <- gtable_add_grob(g, r, t = c(1, 1, 3, 1, 5, 
    5), r = c(1, 3, 3, 6, 1, 6), b = c(1, 1, 3, 3, 6, 6), 
    l = c(1, 3, 1, 5, 3, 5))
plot(g)

plot of chunk unnamed-chunk-3

plot(gtable_delete_empty_rows(g))

plot of chunk unnamed-chunk-3

plot(gtable_delete_empty_cols(g))

plot of chunk unnamed-chunk-3


plot(gtable_delete_rows(g, c(2:4)))

plot of chunk unnamed-chunk-3

plot(gtable_delete_rows(g, c(2, 4)))

plot of chunk unnamed-chunk-3


plot(gtable_delete_cols(g, c(2:4)))

plot of chunk unnamed-chunk-3

plot(gtable_delete_cols(g, c(2, 4)))

plot of chunk unnamed-chunk-3


plot(gtable_delete_cols(g, c(2), FALSE))

plot of chunk unnamed-chunk-3

plot(gtable_delete_cols(g, c(2), TRUE))

plot of chunk unnamed-chunk-3