Jeffrey W Hollister jhollist

Playing with adding + operator for easily joining geojson objects together into a single valid geojson object. This is relatively easy with lists, but not so easy with json unless you speak json.

Get lawn package too for viewing data

devtools::install_github("ropensci/geojsonio")

	# you need my horse library from here: https://github.com/dill/horse

	library(horse)
	library(magrittr)
	library(knitr)

	setup_twitter_oauth("you auth stuff",
	"goes here",
	"you can't use mine",
	"it's mine")

	#Script to scrape NARS website
	library(rvest)
	library(dplyr)
	nars <- read_html("https://www.epa.gov/national-aquatic-resource-surveys/data-national-aquatic-resource-surveys")

	links <- nars %>%
	html_nodes(".file-link, a") %>%
	html_attr("href") %>%
	tbl_df() %>%
	filter(grepl("files",value)) %>%

	# Depends on the `beepr` package by @rasmusab: https://cran.r-project.org/web/packages/beepr/README.html
	# Code greatly improved by flodel on Stack Exchange Code Review (thanks flodel)
	# Planned improvements/expansions: new end-of-timer sounds, add functionality for starting a separate R session so that it doesn't bogart the current one.

	timer <- function(interval, units = c("secs", "mins", "hours", "days", "weeks")) {
	units <- match.arg(units)
	num_sec <- interval * switch(units, secs = 1, mins = 60, hours = 3600,
	days = 86400, weeks = 604800)
	Sys.sleep(num_sec)
	if (require(beepr)) beep(2) else message("TIMER DONE YO!")

	#!/usr/bin/env Rscript

	json_in <- file('stdin', 'r')

	lat_newp <- '{"t":"RawBlock","c":["latex","\\\\newpage"]}'

	doc_newp <- '{"t":"RawBlock","c":["openxml","<w:p><w:r><w:br w:type=\\"page\\"/></w:r></w:p>"]}'

	ast <- paste(readLines(json_in, warn=FALSE), collapse="\n")

	library(tidyverse)

	# using expression() for the text formatting:
	ggplot(mtcars,
	aes(disp,
	mpg)) +
	geom_point() +
	# ~ for spaces, and * for no-space between (unquoted) expressions
	ylab(expression(Anthropogenic~SO[4]^{"2-"}~(ngm^-3))) +
	xlab(expression(italic(delta)^13C[ap]"‰")) +

	echo sha, contributor, date, message > log.csv
	git log --date=local --pretty=format:'%h, %an, %ad, "%s"' >> log.csv