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; } ```



EvaMaeRey/flipbookr documentation built on Nov. 19, 2023, 1:46 p.m.