Edmund Hart emhart

emhart / wolfMap.R

Created April 1, 2014 20:41

code for ropensci hackathon wolf map

	install.packages("spocc")
	library(spocc)


	map3 <- Leaflet$new()
	map3$setView(c(39.828127, -98.579404), zoom = 2)


	tmp <- occ(query = 'Canis lupus', from = c('gbif','ecoengine','inat'),limit = 100)
	testdf <- occ2df(tmp)

emhart / naturalsciencesTwitter.R

Last active August 29, 2015 13:57

Create twitter analytics for social media, an intro

	library(twitteR)
	library(RCurl)
	library(plyr)
	library(tm)
	library(wordcloud)
	library(ggplot2)


	### Great now let's figure out a way to highlight rapid acceleration of tweets
	### Let's write a function that will take a vector of posix dates, a time threshold (in seconds), and assign them indexes

emhart / index.html

Created February 27, 2014 15:58

Citation plot

	<!doctype HTML>
	<meta charset = 'utf-8'>
	<html>
	<head>
	<link rel='stylesheet' href='http://cdn.oesmith.co.uk/morris-0.4.2.min.css'>

	<script src='http://ajax.googleapis.com/ajax/libs/jquery/1.9.0/jquery.min.js' type='text/javascript'></script>
	<script src='http://cdnjs.cloudflare.com/ajax/libs/raphael/2.1.0/raphael-min.js' type='text/javascript'></script>
	<script src='http://cdn.oesmith.co.uk/morris-0.4.2.min.js' type='text/javascript'></script>

emhart / abiesmagmap.geojson

Created February 27, 2014 03:57

Abies magnifica polygons

Sorry, something went wrong. Reload?