## 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(gtable_delete_empty_rows(g))

plot(gtable_delete_empty_cols(g))

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

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

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

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

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

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