options(knitr.duplicate.label = "allow") knitr::opts_chunk$set(fig.width = 6, message = FALSE, warning = FALSE, comment = "", cache = F) library(flipbookr) library(tidyverse) load("current_image.Rdata")
xaringanExtra::use_share_again()
library(tidyverse) Titanic %>% data.frame() %>% uncount(Freq) %>% ggplot() + aes(x = Sex) + geom_bar(position = "fill") + aes(fill = Survived)
r chunk_reveal(chunk_name = "the_chunk", break_type = "auto")
```{css, eval = TRUE, echo = FALSE} .remark-code{line-height: 1.5; font-size: 120%}
@media print { .has-continuation { display: block; } }
code.r.hljs.remark-code{ position: relative; overflow-x: hidden; }
code.r.hljs.remark-code:hover{ overflow-x:visible; width: 500px; border-style: solid; } ```
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.