Skip to contents

The table will be displayed using the bootstrap styling for tables.

Usage

Viewer(x, y = NULL, row.names.bold = FALSE, ...)

Arguments

x

object of class rtable or shiny.tag (defined in htmltools)

y

optional second argument of same type as x

row.names.bold

row.names.bold boolean, make row.names bold

...

arguments passed to as_html

Value

not meaningful. Called for the side effect of opening a browser or viewer pane.

Examples


if(interactive()) {
sl5 <- factor(iris$Sepal.Length > 5, levels = c(TRUE, FALSE),
   labels = c("S.L > 5", "S.L <= 5"))

df <- cbind(iris, sl5 = sl5)

lyt <- basic_table() %>%
   split_cols_by("sl5") %>%
   analyze("Sepal.Length")

tbl <- build_table(lyt, df)

Viewer(tbl)
Viewer(tbl, tbl)


tbl2 <- htmltools::tags$div(
  class = "table-responsive",
  as_html(tbl, class_table = "table")
)

Viewer(tbl, tbl2)

}