This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
// 3D Dom viewer, copy-paste this into your console to visualise the DOM as a stack of solid blocks. | |
// You can also minify and save it as a bookmarklet (https://www.freecodecamp.org/news/what-are-bookmarklets/) | |
(() => { | |
const SHOW_SIDES = false; // color sides of DOM nodes? | |
const COLOR_SURFACE = true; // color tops of DOM nodes? | |
const COLOR_RANDOM = false; // randomise color? | |
const COLOR_HUE = 190; // hue in HSL (https://hslpicker.com) | |
const MAX_ROTATION = 180; // set to 360 to rotate all the way round | |
const THICKNESS = 20; // thickness of layers | |
const DISTANCE = 10000; // ¯\\_(ツ)_/¯ |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
bowling_animation_urls <- c( | |
"0.01" = "https://i.imgur.com/Kn8CQbj.gif", | |
"0.05" = "https://i.imgur.com/HFTKdDL.gif", | |
"0.1" = "https://i.imgur.com/8Sw54Mz.gif", | |
"1" = "https://i.imgur.com/kjROdhj.gif" | |
) | |
# We need to download the animations to the session temp dirercorty to display | |
# them in the Rstudio Viever pane | |
bowling_animation_html <- sapply(bowling_animation_urls, function(url) { |