inst/archive/layout.R

In seananderson/pbs-synopsis: Data Extraction and Plotting for DFO PBS Groundfish Stocks

m <- rbind(
  c(1, 2),
  c(3, 4),
  c(3, 4),
  c(5, 6),
  c(7, 7)
)

# layout.show(7)

layout(m)
par(mar = c(0,0,0,0), oma = c(0.5, 0.5, 0.5, 0.5))

plot(1, type = "n", axes = FALSE)
box(col = "grey50")
plot(1, type = "n", axes = FALSE)
box(col = "grey50")
plot(1, type = "n", axes = FALSE)
box(col = "grey50")
plot(1, type = "n", axes = FALSE)
box(col = "grey50")
plot(1, type = "n", axes = FALSE)
box(col = "grey50")
plot(1, type = "n", axes = FALSE)
box(col = "grey50")
plot(1, type = "n", axes = FALSE)
box(col = "grey50")