Skip to content

Instantly share code, notes, and snippets.

Avatar

Miles Grimshaw milesgrimshaw

View GitHub Profile
@milesgrimshaw
milesgrimshaw / inbox_count
Created Sep 25, 2014
Google Apps Script to save the count of emails in your inbox
View inbox_count
function processInbox() {
// get all threads in inbox
var threads = GmailApp.getInboxThreads();
data_id = '1t70IDdWcaJzCIIaNWm2nHSPKzetHfTxhkKc9jKkAlpA'
var dataSs = SpreadsheetApp.openById(data_id);
var sheet = dataSs.getSheets()[0];
var current_date = new Date();
sheet.appendRow([current_date, current_date.toISOString(),threads.length]);
};
View gist:5997603
library(stringr)
library(lubridate)
library(ggplot2)
library(scales)
getwd()
setwd("~/Desktop/Personal_Projects/Immersion/")
i <- read.csv("./immersion.csv", header=TRUE, as.is=TRUE)
## Only get those emails that I sent
View tech_reading.md
View openpaths data management
## Code for subsetting and formatting open paths data for Mapbox
## Miles Grimshaw
## December 26th 2013
## Set working directory and load required packages
getwd()
setwd("~/Dropbox/Personal/Mapbox/OpenPaths/")
library(stringr)
library(lubridate)
# library(ggplot2)
View convert CSV to geoJSON
require 'csv'
require 'json'
require 'pp'
i = 0
features = []
start_line = []
end_line = []
## Loop through each row of the data
@milesgrimshaw
milesgrimshaw / gist:5996636
Last active Dec 19, 2015
Merge JSON files of personal gmail header data and save as single CSV.
View gist:5996636
## MILES GRIMSHAW
require 'mechanize'
require 'csv'
require 'open-uri'
require "pp"
require "json"
CSV.open("immersion.csv", "wb") do |csv|
csv << ["Text","Date"]
@milesgrimshaw
milesgrimshaw / gist:5523271
Created May 6, 2013
R code for Personal Data Analytics
View gist:5523271
### Miles Grimshaw Code For Blog Post on Personal Data
### May 5th 2013
getwd()
setwd("~/Desktop/x_Final_Project")
library(stringr)
library(lubridate)
library(ggplot2)
@milesgrimshaw
milesgrimshaw / gist:5392161
Created Apr 15, 2013
R script for making the graphs on the US economy
View gist:5392161
##############################
# Miles Grimshaw
# April 15th, 2013
# Code for graphs exploring US Economy
# Blog Post:
##############################
getwd()
setwd("~/Desktop/Macro_Paper/Data/")
@milesgrimshaw
milesgrimshaw / gist:5172167
Created Mar 15, 2013
Obesity In The USA (Octopress Blog Post)
View gist:5172167
---
layout: post
title: "Obesity in the USA"
date: 2013-03-14 12:59
comments: true
categories:
---
<!-- Make sure to include D3 first or else the IIFEs won't work. -->
<script src="http://d3js.org/d3.v2.js"></script>
<script type="text/javascript" src="/Data/obesitystatedata.js"></script>
@milesgrimshaw
milesgrimshaw / gist:4748004
Last active Dec 12, 2015
Who Are My Peers? The code I wrote to both learn R and analyze some descriptive qualities of the current Yale undergraduate student body( Classes '13, '14, '15, '16).
View gist:4748004
#Pull in the html
x <- scan("~/Dropbox/Documents/Senior Year/Spring/STAT230/YaleFacebook3.html",
what="", sep="\n")
#All the student data is within the div class='display_data'
data <- grep('display_data', x, fixed=TRUE)
#The student data is all on the next line of html. The studens variable now contains the
#line number of the html with all the data
students <- x[data+1]
#each student's info is contained within the div with class='student_text_container'
You can’t perform that action at this time.