Nothing
## ----echo = FALSE-------------------------------------------------------------
if (!requireNamespace("rmarkdown") || !rmarkdown::pandoc_available("1.12.3")) {
warning("This vignette requires pandoc version 1.12.3; code will not run in older versions.")
knitr::opts_chunk$set(eval = FALSE)
}
## ----results='hide', message=FALSE--------------------------------------------
library(tables)
## -----------------------------------------------------------------------------
X <- rnorm(125, sd=100)
Group <- factor(sample(letters[1:5], 125, rep=TRUE))
tab <- tabular( Group ~ (N=1)+Format(digits=2)*X*((Mean=mean) + Heading("Std Dev")*sd) )
## -----------------------------------------------------------------------------
table_options(htmloptions(head=FALSE))
## -----------------------------------------------------------------------------
tab
## -----------------------------------------------------------------------------
table_options(knit_print = FALSE)
tab # This chunk uses the default results = 'markup'
## ----results = 'asis'---------------------------------------------------------
toHTML(tab) # This chunk uses results = 'asis'
## ----results='asis'-----------------------------------------------------------
writeCSS()
## -----------------------------------------------------------------------------
table_options(htmloptions(head = FALSE, justification = "r", knit_print = TRUE))
tab
## -----------------------------------------------------------------------------
table_options(htmloptions(head = FALSE, justification = "c", pad = TRUE))
tab
## ----comment=NA, echo=FALSE---------------------------------------------------
cat(table_options()$CSS)
## -----------------------------------------------------------------------------
table_options(CSS =
"<style>
#ID .center {
text-align:center;
background-color: aliceblue;
}
</style>", doCSS = TRUE)
tab
table_options(doCSS = FALSE)
tab
## -----------------------------------------------------------------------------
library(magrittr)
library(kableExtra)
toKable(tab, format="html") %>%
kable_styling("striped", position = "float_right", full_width = FALSE) %>%
add_header_above(c("Row Label" = 1, "Statistics" = 3)) %>%
column_spec(4, color = "red") %>%
row_spec(1, color = "blue") %>%
group_rows("Subgroup", 3, 5)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.