knitr::opts_chunk$set(echo = TRUE, cache = T)
library(tidyverse)
library(flipbookr)
# library(viztoc)
try(source("../../../../../R/visual_table_of_contents.R"))

r build_and_use_gif(dir = "skeleton_files/figure-html/", width = 200, height = 200, cached_gif = F, pattern = "cars", href = "skeleton.html#cars", which = 5)

r build_and_use_gif(dir = "skeleton_files/figure-html/", width = 200, height = 200, cached_gif = F, pattern = "pressure", href = "skeleton.html#mypressure", which = 5)


name: cars

r chunk_reveal("my_cars")

cars %>% 
ggplot() +
  theme_bw(base_size = 30) +
  aes(x = speed) +
  aes(y = dist) +
  geom_point(size = 5)

name: mypressure

r chunk_reveal("my_pressure")

pressure %>% 
ggplot() +
  theme_minimal(base_size = 30) +
  aes(x = temperature) +
  aes(y = pressure) +
  geom_point(size = 5) +
  scale_y_log10()
.static {
  position:absolute;
  background: white;
}

.static:hover {
  opacity:0;
}


EvaMaeRey/viztoc documentation built on Sept. 9, 2021, 2:48 a.m.