# NOT RUN {
#* This example will only display the last table
#* in the viewer pane. To see the full output,
#* run this example in an Rmarkdown document.
x <- split(mtcars, list(mtcars$am, mtcars$vs))
dust(x) %>%
sprinkle_print_method("html") %>%
pixieply(medley_bw)
# }
# NOT RUN {
# }
# NOT RUN {
#* This is the full text of an RMarkdown script
#* for the previous example.
---
title: "Pixieply"
output: html_document
---
```{r}
library(pixiedust)
x <- dplyr::group_by(mtcars, am, vs)
dust(x, ungroup = FALSE) %>%
sprinkle_print_method("html") %>%
pixieply(medley_bw)
```
# }
# NOT RUN {
# }
Run the code above in your browser using DataCamp Workspace