cbind two rtables

cbind_rtables(x, ...)

x <- rtable(c("A", "B"), rrow("row 1", 1,2), rrow("row 2", 3, 4))

y <- rtable("C", rrow("row 1", 5), rrow("row 2", 6))

z <- rtable("D", rrow("row 1", 9), rrow("row 2", 10))

t1 <- cbind_rtables(x, y)
t1
#>         A   B   C
#> —————————————————
#> row 1   1   2   5
#> row 2   3   4   6

t2 <- cbind_rtables(x, y, z)
t2
#>         A   B   C   D 
#> ——————————————————————
#> row 1   1   2   5   9 
#> row 2   3   4   6   10

col_paths_summary(t1)
#> label    path     
#> ——————————————————
#> A        manual, A
#> B        manual, B
#> C        manual, C
col_paths_summary(t2)
#> label    path     
#> ——————————————————
#> A        manual, A
#> B        manual, B
#> C        manual, C
#> D        manual, D