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; }
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.