Instantly share code, notes, and snippets.

View download_mapa_digital.sh
#! /bin/bash
# Projection compatible with Google Maps
PROJECTION="+proj=longlat +ellps=WGS84 +no_defs +towgs84=0,0,0"
# wget command
WGET="wget -w 5 --random-wait --tries=2 "
# The mapa digital is available as 4 files
declare -a extensions=(".exe" "-1.bin" "-2.bin" "-3.bin")
$WGET "http://www.inegi.org.mx/geo/contenidos/MapaDigital/exe/Instalador_proy_bas_inf_2017.exe" -O instalador_proyecto_informacion_basica.exe
View index.js
// Contact form for www.ilsevalle.com
// The form requieres 4 parameters:
// SENDGRID_API - Sendgrid API key to send emails
// EMAIL_SENDER - address from which the mail is sent
// SEND_TO - address to which the mail is sent
// RECAPTCHA_SECRET - Server secret from Google's recaptcha service
// TIMEZONE - time zone in which to display the submission time (https://en.wikipedia.org/wiki/List_of_tz_database_time_zones)
const request = require('request');
const sgMail = require('@sendgrid/mail');
View temp-cdmx.R
library(viridis)
library(ggridges)
library(aire.zmvm)
library(lubridate)
library(ggplot2)
library(dplyr)
library(tidyr)
library(stringr)
library(lubridate)
View january-temps.R
#based on https://cran.r-project.org/web/packages/ggjoy/vignettes/gallery.html
library(viridis)
library(ggridges)
library(aire.zmvm)
library(lubridate)
library(ggplot2)
library(dplyr)
library(tidyr)
library(stringr)
library(lubridate)
View homicide-northamerica.R
library(directlabels)
library(ggplot2)
library(scales)
library(tidyr)
df = data.frame(Canada = c(522, 609, 611),
US = c(15872, 17793, 19362),
Mexico = c(20010, 20762, 24559))
df = data.frame(apply(df, 2, function(x) x = x/x[1]))
df$year = 2014:2016
View his.R
pop <- read.csv("../downloader/data/pop_muns.csv") %>% filter(date == '2010-06-01 00:00:00')
mex <- injury.intent %>%
filter(year_reg == 2016 & intent %in% c("Homicide", "Legal Intervention")) %>%
group_by(state_occur_death, mun_occur_death) %>%
rename(state_code = state_occur_death, mun_code = mun_occur_death) %>%
summarise(count = n()) %>%
left_join(read.csv("../downloader/data/pop_muns.csv") %>% filter(date == '2016-06-01 00:00:00'),
by = c("state_code", "mun_code")) %>%
mutate(rate = count / population * 10^5) %>%
View temp_cdmx.R
#based on https://cran.r-project.org/web/packages/ggjoy/vignettes/gallery.html
library(viridis)
library(ggridges)
#devtools::install_github('diegovalle/aire.zmvm')
library(aire.zmvm)
library(lubridate)
library(ggplot2)
library(dplyr)
library(tidyr)
View mx_geofacet.R
library(dplyr)
library(readr)
library(ggplot2)
library(geofacet)
read_csv("https://elcri.men/data/victimas.csv.gz") %>%
filter(modalidad == "HOMICIDIOS" & tipo == "DOLOSOS") %>%
mutate(date = as.Date(paste0(date, "-01"))) %>%
mutate(rate = count / population * 10^5 * 12) %>%
View mx_grid.R
library(dplyr)
library(stringr)
library(readr)
library(ggplot2)
library(geofacet)
options(stringsAsFactors = FALSE)
mx_grid <- data.frame(
code = c(2L, 8L, 26L, 3L, 5L, 10L, 19L, 25L, 28L, 1L, 18L, 24L, 32L,
11L, 13L, 14L, 22L, 30L, 6L, 15L, 29L, 9L, 17L, 21L, 31L, 4L,
View carto_electoral.sh
#!/bin/bash
# Author: Diego Valle-Jones
# Web: http://www.diegovalle.net
# Purpose: Script to download electoral shapefiles
# from http://cartografia.ife.org.mx/sige7/?distritacion=federal
set -euo pipefail
# Every six months or so the INE updates the shapefiles
# be sure to update this variable
DATE="15mar2017"