Nothing
## ----setup, include = FALSE---------------------------------------------------
knitr::opts_chunk$set(
collapse = TRUE,
comment = "#>"
)
## -----------------------------------------------------------------------------
# get a small sample of irises
iris <- head(iris, n = 3)
# add a record id to iris
iris$iris_id <- seq_len(nrow(iris))
knitr::kable(iris)
## -----------------------------------------------------------------------------
library("cdata")
controlTable <- wrapr::qchar_frame(
"flower_part", "Length" , "Width" |
"Petal" , Petal.Length, Petal.Width |
"Sepal" , Sepal.Length, Sepal.Width )
layout <- rowrecs_to_blocks_spec(
controlTable,
recordKeys = c("iris_id", "Species"))
print(layout)
## -----------------------------------------------------------------------------
iris %.>%
knitr::kable(.)
iris_aug <- iris %.>%
layout
iris_aug %.>%
knitr::kable(.)
## -----------------------------------------------------------------------------
inv_layout <- t(layout)
print(inv_layout)
iris_aug %.>%
inv_layout %.>%
knitr::kable(.)
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.