library(rqdatatable)
## Loading required package: rquery
d <- data.frame(x = 1:3, y = 4:6)
ops <- wrap(d) %.>%
extend(., z := x + y)
print(ops)
## [mk_td("d", c(
## "x",
## "y")) %.>%
## extend(.,
## z := x + y)
## ](
## d)
ops %.>%
ex %.>%
knitr::kable(.)
| x | y | z | | -: | -: | -: | | 1 | 4 | 5 | | 2 | 5 | 7 | | 3 | 6 | 9 |
d %.>%
knitr::kable(.)
| x | y | | -: | -: | | 1 | 4 | | 2 | 5 | | 3 | 6 |
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.