Adam H. Sparks adamhsparks

🚧 wip...

Organizations for Open Data & Publishing

Speaker Rider

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.

	library("GSODR")
	library("tidyr")
	library("dplyr")
	library("countrycode")

	w <- get_GSOD(years = 1929:1931)

	w <-
	w %>%
	group_by(CTRY, YEAR) %>%


	Menu entry Default shortcut~
	Start/Close
	. Start R (default) \rf
	. Start R (custom) \rc
	--------------------------------------------------------
	. Close R (no save) \rq
	. Stop (interrupt) R :RStop
	-----------------------------------------------------------

	# Check https://www.zachburchill.ml/constant_scales/ for a walkthrough.
	# Note that this code is slightly "better" than the code in the post, since it checks
	# to see if the scales being supplied and used are all continuous.

	# Examples included after the function definitions.

	# Given a bunch of plots and a scale you want to apply to them, this returns that scale,
	# but with limits that encompass the union of all the ranges of values in those plots
	# Meant to be for users
	get_shared_scale <- function(..., scale) {

	# For Plots in R, need to use unicode dashes

	# https://jkorpela.fi/dashes.html
	# https://stackoverflow.com/a/27492072/1317443

	# soft hyphen: `\u00ad` (Note that on macOS using the `Cairo` package that you don't need this; just type "-" on your keyboard)
	# en dash: `\u2013`
	# em dash: `\u2014`

	##e.g.

	calcultate_hhr <- function(df_in_hhr) {

	# Tn temp min, Tx temp max, To sunset , Tp temp min next
	# Hn sunrise, Hx h temp max, Ho h sunset , Hp h temp min next
	# date <- df_in_hhr[[1]]

	#####

	Tn <- as.numeric(df_in_hhr[[2]])
	Tp <- as.numeric(df_in_hhr[[3]])


	library(bomrang)
	library(tidyverse)
	library(theme.usq)

	# Find stations ----------------------------------------------------------------

	# Find nearest stations for each area
	# search https://www.latlong.net/ for the lat lon values of each location
	# clermont

	# to look at The Wisley location data 2018 and 2019 based on
	# this Q from Tom Coulson https://twitter.com/TomCoulson85/status/1135905779242995712

	library(nasapower)
	library(ggplot2)
	library(cowplot)
	library(RColorBrewer)
	library(zoo)

	# get the 2018 data

	``` r
	library(purrr)
	library(tibble)

	darwin_data <-
	tibble::tribble(
	~pair, ~cross_fertilized, ~self_fertilized, ~difference,
	1, 92, 43, 49,
	2, 0, 67, -67,
	3, 72, 64, 8,