grob_layout(
grob_row(
grob_col(1, border = TRUE),
grob_col(2, border = TRUE),
border = TRUE
),
grob_row(
grob_col(3, border = TRUE),
grob_col(
grob_row(grob_col(4, border = TRUE), border = TRUE),
grob_row(grob_col(5, border = TRUE), border = TRUE),
border = TRUE
),
border = TRUE
)
) %>%
grob_to_pdf(
file_name = file.path(tempdir(), "test.pdf"),
meta_data_title = "Test PDF"
)
Run the code above in your browser using DataLab