library(grid)
tbl <- rtable(
header = rheader(
rrow("", "E", rcell("CI", colspan = 2)),
rrow("", "A", "B", "C")
),
rrow("row 1", 1, 0.8, 1.1),
rrow("row 2", 1.4, 0.8, 1.6),
rrow("row 3", 1.2, 0.8, 1.2)
)
# \donttest{
v <- forest_viewport(tbl)
grid::grid.newpage()
showViewport(v)
# }
Run the code above in your browser using DataLab