Matt Dray matt-dray

## simple_cols_magick.R
# Simplify image colours to prespecified simple colour set
# Following Jeroen Ooms (https://jeroen.github.io/munster2018/)

library(magick)
library(dplyr)
library(tibble)

# read test image

# img_path <- "https://upload.wikimedia.org/wikipedia/commons/1/13/Suprematist_Composition_-_Kazimir_Malevich.jpg"

## shiny-checkbox-null.R
# Shiny app with checkboxes
# If unchecked, no error
# https://stackoverflow.com/a/38686474
# https://stackoverflow.com/a/37737182

library(shiny)
library(ggplot2)
library(dplyr)

ui <- shinyUI(fluidPage(

## virtual-env.sh
# Create a virtual environment at current pwd
virtualenv venv

# Activate the virtual environment
source venv/bin/activate

# Load in module/version requirements
pip install -r requirements.txt

# Deactivate the running virtual environment

## git-snippets.sh
# Branch activities
git branch  # current branch
git branch -a  # list all branches
git branch -av  # list branches with last commit
git checkout branch-name  # switch to branch

# Git stashing
# For storing changes when you switch branch and come back later
# https://git-scm.com/book/en/v1/Git-Tools-Stashing
git stash push

## get-nba-table-wiki.R
library(rvest)
library(tibble)

nba_wikipedia <- read_html("https://en.wikipedia.org/wiki/National_Basketball_Association")

nba_table <- html_nodes(
  x = nba_wikipedia,
  xpath = '//*[@id="mw-content-text"]/div/table[4]'
  ) %>%
  html_table(fill = TRUE, header = NA)

## 190103-rap-companion-accessibility-tenon-report.csv
"tID","bpID","priority","certainty","errorTitle","standards","resultTitle","errorDescription","viewPortLocation","position","errorSnippet","xpath","issueID","signature","ref","url"
3,118,100,100,"The language of this page is not set.","Web Content Accessibility Guidelines (WCAG) 2.0, Level A: 3.1.1 Language of Page","Identify the natural language for the page","The language of the document has not been set. When the language is not set, screen readers and other assistive technologies have no way of being sure of the correct way to accessibily present the contents.","{""top-left"":{""x"":0,""y"":0},""bottom-right"":{""x"":1024,""y"":768},""height"":768,""width"":1024}","column: 1 , line: 1","<html><head style="""">\n\n  <meta charset=""UTF-8"" style="""">\n  <meta http-equiv=""X-UA-Compatible"" content=""IE=edge"" style="""">\n  <title style="""">RAP Companion</title>\n  <meta name=""description"" content=""A technical commu","/html","e14ae3f19fc00ece6488db9c9b459586","3cc1161591cd0a1f606898e98ddeb0d6","https:

## alluvial_demo.R
# demo of alluvial::alluvial()
# see the vignette: https://cran.r-project.org/web/packages/alluvial/vignettes/alluvial.html
# matt dray
# july 2018

# packages

library(dplyr)
library(readr)
library(alluvial)

## save-many-plots-pwalk.R
# https://rstudio-pubs-static.s3.amazonaws.com/294422_099df24a1c0f46f99db848ca5c48ff6b.html

library(tidyverse)

plots <- mtcars %>%
  group_by(cyl) %>%
  nest() %>%
  mutate(plot = map(data, ~ggplot(., aes(mpg, wt)) + geom_point()),
         filename = paste0(cyl, ".pdf")) %>%
  select(filename, plot)

## union-polygons-sf.R
# Example of a geospatial union between polygons with R's {sf} package
# Combine East and West Midlands to 'Midlands'

# This example uses a GeoJSON of super-generalised clipped boundaries for England's regions:
# http://geoportal.statistics.gov.uk/datasets/regions-december-2017-super-generalised-clipped-boundaries-in-england
# (click the API dropdown on this page and copy the URL for the GeoJSON)

# Packages
library(geojsonio)
library(sf)

## all-the-memes.R
devtools::install_github("sctyner/memer")
library(memer)
library(tidyverse)
library(magick)

memes <- tibble(meme_name = meme_list()) %>%
  mutate(
    image = map(meme_name, meme_get),
    path = paste0(getwd(), "/", meme_name, ".jpg")
  ) %>%
	# Simplify image colours to prespecified simple colour set
	# Following Jeroen Ooms (https://jeroen.github.io/munster2018/)

	library(magick)
	library(dplyr)
	library(tibble)

	# read test image

	# img_path <- "https://upload.wikimedia.org/wikipedia/commons/1/13/Suprematist_Composition_-_Kazimir_Malevich.jpg"
	# Shiny app with checkboxes
	# If unchecked, no error
	# https://stackoverflow.com/a/38686474
	# https://stackoverflow.com/a/37737182

	library(shiny)
	library(ggplot2)
	library(dplyr)

	ui <- shinyUI(fluidPage(
	# Create a virtual environment at current pwd
	virtualenv venv

	# Activate the virtual environment
	source venv/bin/activate

	# Load in module/version requirements
	pip install -r requirements.txt

	# Deactivate the running virtual environment
	# Branch activities
	git branch # current branch
	git branch -a # list all branches
	git branch -av # list branches with last commit
	git checkout branch-name # switch to branch

	# Git stashing
	# For storing changes when you switch branch and come back later
	# https://git-scm.com/book/en/v1/Git-Tools-Stashing
	git stash push
	library(rvest)
	library(tibble)

	nba_wikipedia <- read_html("https://en.wikipedia.org/wiki/National_Basketball_Association")

	nba_table <- html_nodes(
	x = nba_wikipedia,
	xpath = '//*[@id="mw-content-text"]/div/table[4]'
	) %>%
	html_table(fill = TRUE, header = NA)
	# demo of alluvial::alluvial()
	# see the vignette: https://cran.r-project.org/web/packages/alluvial/vignettes/alluvial.html
	# matt dray
	# july 2018

	# packages

	library(dplyr)
	library(readr)
	library(alluvial)
	# https://rstudio-pubs-static.s3.amazonaws.com/294422_099df24a1c0f46f99db848ca5c48ff6b.html

	library(tidyverse)

	plots <- mtcars %>%
	group_by(cyl) %>%
	nest() %>%
	mutate(plot = map(data, ~ggplot(., aes(mpg, wt)) + geom_point()),
	filename = paste0(cyl, ".pdf")) %>%
	select(filename, plot)
	# Example of a geospatial union between polygons with R's {sf} package
	# Combine East and West Midlands to 'Midlands'

	# This example uses a GeoJSON of super-generalised clipped boundaries for England's regions:
	# http://geoportal.statistics.gov.uk/datasets/regions-december-2017-super-generalised-clipped-boundaries-in-england
	# (click the API dropdown on this page and copy the URL for the GeoJSON)

	# Packages
	library(geojsonio)
	library(sf)
	devtools::install_github("sctyner/memer")
	library(memer)
	library(tidyverse)
	library(magick)

	memes <- tibble(meme_name = meme_list()) %>%
	mutate(
	image = map(meme_name, meme_get),
	path = paste0(getwd(), "/", meme_name, ".jpg")
	) %>%