rtables (version 0.6.6)

rbindl_rtables: rbind TableTree and related objects

Description

rbind TableTree and related objects

Usage

rbindl_rtables(x, gap = 0, check_headers = TRUE)
# S4 method for VTableNodeInfo
rbind(..., deparse.level = 1)
# S4 method for VTableNodeInfo,ANY
rbind2(x, y)

Value

A formal table object.

Arguments

x

VTableNodeInfo. TableTree, ElementaryTable or TableRow object.

gap

deprecated. Ignored.

check_headers

deprecated. Ignored.

...

ANY. Elements to be stacked.

deparse.level

numeric(1). Currently Ignored.

y

VTableNodeInfo. TableTree, ElementaryTable or TableRow object.

Examples

mtbl <- rtable(
  header = rheader(
    rrow(row.name = NULL, rcell("Sepal.Length", colspan = 2), rcell("Petal.Length", colspan = 2)),
    rrow(NULL, "mean", "median", "mean", "median")
  ),
  rrow(
    row.name = "All Species",
    mean(iris$Sepal.Length), median(iris$Sepal.Length),
    mean(iris$Petal.Length), median(iris$Petal.Length),
    format = "xx.xx"
  )
)

mtbl2 <- with(subset(iris, Species == "setosa"), rtable(
  header = rheader(
    rrow(row.name = NULL, rcell("Sepal.Length", colspan = 2), rcell("Petal.Length", colspan = 2)),
    rrow(NULL, "mean", "median", "mean", "median")
  ),
  rrow(
    row.name = "Setosa",
    mean(Sepal.Length), median(Sepal.Length),
    mean(Petal.Length), median(Petal.Length),
    format = "xx.xx"
  )
))

rbind(mtbl, mtbl2)
rbind(mtbl, rrow(), mtbl2)
rbind(mtbl, rrow("aaa"), indent(mtbl2))