Skip to content

Instantly share code, notes, and snippets.

View federicomarini's full-sized avatar

Federico Marini federicomarini

View GitHub Profile
---
title: "Presentation Ninja"
subtitle: "⚔<br/>with xaringan"
author: "Yihui Xie"
institute: "RStudio, Inc."
date: "2016/12/12 (updated: `r Sys.Date()`)"
output:
xaringan::moon_reader:
lib_dir: libs
nature:
@tatianamac
tatianamac / tatiana-mac-speaker-rider.md
Last active March 24, 2024 12:22
Tatiana Mac's Speaker Rider

Speaker Rider

by Tatiana Mac

Last updated 14 April 2021

What is a speaker rider?

As speaking comes with immense privilege, I have crafted a speaker rider to set expectations and boundaries around my engagement. I am grateful to all the conference organisers who have brilliantly hosted me. I would love to continue to exercise this privilege to speak at conferences, and use this privilege to make the landscape more accessible and beneficial to tech's most historically excluded and marginalised communities.

Considerations

😫 I provide a lot of explanations for those of you who never had to consider these things. Most thoughtful conferences I've attended check most of these boxes intrinsically, particularly when conference runners are experienced speakers. They get it.

@rabdill
rabdill / raytrace_photos.r
Last active May 27, 2020 17:46
Turn a bitmap into an unsettling 3D map
# Inspired by this twitter thread:
# https://twitter.com/tylermorganwall/status/1088978382195437568
# Using (and borrowing code from) the immaculate documentation here:
# https://github.com/clauswilke/isoband
# https://github.com/tylermorganwall/rayshader
# Just provide a URL to the image you want to make weird; everything else should work out of the box:
image_url = "https://pbs.twimg.com/profile_images/905186381995147264/7zKAG5sY_400x400.jpg"
resolution = "200x200" # 200x200 seems manageable here; this is the factor that will increase computation time
msg <- function(..., prob = 0.25) {
if (runif(1) > prob) {
return(invisible())
}
messages <- c(...)
message(sample(messages, 1))
}
encourage <- function() {