Scott Chamberlain sckott

## index.html
<!DOCTYPE html>
<html>
<head>
  <meta charset="utf-8">
  <title>Sinon.js fakeServer demo</title>
  <script src="//cdnjs.cloudflare.com/ajax/libs/jquery/2.1.1/jquery.min.js"></script>
  <script src="//cdnjs.cloudflare.com/ajax/libs/sinon.js/1.7.3/sinon-min.js"></script>
  <script src="sinon-fake-server.js"></script>
</head>
<body>

## geo_json.R
devtools::install_github("ropensci/togeojson@reworkapi")
library('togeojson')
library('maps')
data(us.cities)
to_geo_json(us.cities[1:2,], lat='lat', lon='long')
to_geojson(us.cities[1:2,], lat='lat', lon='long')

## google_maps_with_rvest
library(dplyr); library(httr); library(rvest)
addr <- "Big Ben"
GET("http://maps.google.com/maps/api/geocode/xml",
    query = list(address = addr)) %>%
    content() %>%
    html_nodes(xpath = "//location//lat | //location//lng") %>%
    html_text() %>%
    setNames(c("lng", "lat"))

## git-author-rewrite.sh
#!/bin/sh

git filter-branch --env-filter '

OLD_EMAIL="your-old-email@example.com"
CORRECT_NAME="Your Correct Name"
CORRECT_EMAIL="your-correct-email@example.com"

if [ "$GIT_COMMITTER_EMAIL" = "$OLD_EMAIL" ]
then

## ggplot2SEM.R
require(ggplot2); require(gridExtra)

###Generate box coords
###A function to generat a blank box for use with geom_path()
box_coords <- function(x,y,size){
  b.x <- c(rep(x,2) -  (size[1] / 2),rep(x,2) + (size[1] / 2))
  b.x[5] <- b.x[1]
  b.y <- c(y-(size[2] / 2),rep(y,2)+(size[2] / 2),y-(size[2] / 2))
  b.y[5] <- b.y[1]
  rmat <- data.frame(cbind(b.x,b.y))

## is.invasive.R
is.invasive()

##Description##

#This function check which species (both plants and animals) are considered "invaders" somewhere in the
# world.  For that end, it checks GISD (http://www.issg.org/database/welcome/) and returns a value, either
#"Not invasive" or the brief description presented in GISD. Note that the webpage contains more
#information. Also note that the function won't tell you if it's exotic in your area, a lot of exotic
#species are not considered invaders (yet). As expected, the function is as good as the database is, which
#I find quite reliable and well maintained. The database is also able to recognize a lot (but not all) of

## prepdata.R
splist <- c("Accipiter erythronemius", "Junco hyemalis", "Aix sponsa", "Haliaeetus leucocephalus",
  "Corvus corone", "Threskiornis molucca", "Merops malimbicus")
out <- lapply(splist, function(x) occurrencelist(x, coordinatestatus=T, maxresults=500))
names(out) <- splist
setwd("~/ShinyApps/rgbif2")
save(out, file="speciesdata.rda")

## server.r
require(shiny)
require(rCharts)

shinyServer(function(input, output){
  output$chart <- renderMap({
    require(rCharts)
    map3 <- Leaflet$new()
    map3$setView(c(51.505, -0.09), zoom = 13)
    map3$tileLayer(provider = input$provider, urlTemplate = NULL)
    map3$marker(c(51.5, -0.09), bindPopup = "<p> Hi. I am a popup </p>")

## body.R
library(curl)
h <- new_handle()
handle_setform(h, limit = "3")
handle_setopt(h, customrequest = "POST")
handle_setheaders(h,
  "X-HTTP-Method-Override" = "GET"
)
req <- curl_fetch_memory("http://data.techno-science.ca/api/3/action/package_list", handle = h)
jsonlite::fromJSON(rawToChar(req$content))$result

## untrusted-lvl7-solution.js
/*************
* colors.js *
 *************
 *
 * You're almost at the exit. You just need to get past this
 * color lock.
 *
 * Changing your environment is no longer enough. You must
 * learn to change yourself. I've sent you a little something
 * that should help with that.
	<!DOCTYPE html>
	<html>
	<head>
	<meta charset="utf-8">
	<title>Sinon.js fakeServer demo</title>
	<script src="//cdnjs.cloudflare.com/ajax/libs/jquery/2.1.1/jquery.min.js"></script>
	<script src="//cdnjs.cloudflare.com/ajax/libs/sinon.js/1.7.3/sinon-min.js"></script>
	<script src="sinon-fake-server.js"></script>
	</head>
	<body>
	devtools::install_github("ropensci/togeojson@reworkapi")
	library('togeojson')
	library('maps')
	data(us.cities)
	to_geo_json(us.cities[1:2,], lat='lat', lon='long')
	to_geojson(us.cities[1:2,], lat='lat', lon='long')
	library(dplyr); library(httr); library(rvest)
	addr <- "Big Ben"
	GET("http://maps.google.com/maps/api/geocode/xml",
	query = list(address = addr)) %>%
	content() %>%
	html_nodes(xpath = "//location//lat \| //location//lng") %>%
	html_text() %>%
	setNames(c("lng", "lat"))
	#!/bin/sh

	git filter-branch --env-filter '

	OLD_EMAIL="your-old-email@example.com"
	CORRECT_NAME="Your Correct Name"
	CORRECT_EMAIL="your-correct-email@example.com"

	if [ "$GIT_COMMITTER_EMAIL" = "$OLD_EMAIL" ]
	then
	require(ggplot2); require(gridExtra)

	###Generate box coords
	###A function to generat a blank box for use with geom_path()
	box_coords <- function(x,y,size){
	b.x <- c(rep(x,2) - (size[1] / 2),rep(x,2) + (size[1] / 2))
	b.x[5] <- b.x[1]
	b.y <- c(y-(size[2] / 2),rep(y,2)+(size[2] / 2),y-(size[2] / 2))
	b.y[5] <- b.y[1]
	rmat <- data.frame(cbind(b.x,b.y))
	is.invasive()

	##Description##

	#This function check which species (both plants and animals) are considered "invaders" somewhere in the
	# world. For that end, it checks GISD (http://www.issg.org/database/welcome/) and returns a value, either
	#"Not invasive" or the brief description presented in GISD. Note that the webpage contains more
	#information. Also note that the function won't tell you if it's exotic in your area, a lot of exotic
	#species are not considered invaders (yet). As expected, the function is as good as the database is, which
	#I find quite reliable and well maintained. The database is also able to recognize a lot (but not all) of
	splist <- c("Accipiter erythronemius", "Junco hyemalis", "Aix sponsa", "Haliaeetus leucocephalus",
	"Corvus corone", "Threskiornis molucca", "Merops malimbicus")
	out <- lapply(splist, function(x) occurrencelist(x, coordinatestatus=T, maxresults=500))
	names(out) <- splist
	setwd("~/ShinyApps/rgbif2")
	save(out, file="speciesdata.rda")
	require(shiny)
	require(rCharts)

	shinyServer(function(input, output){
	output$chart <- renderMap({
	require(rCharts)
	map3 <- Leaflet$new()
	map3$setView(c(51.505, -0.09), zoom = 13)
	map3$tileLayer(provider = input$provider, urlTemplate = NULL)
	map3$marker(c(51.5, -0.09), bindPopup = "<p> Hi. I am a popup </p>")
	library(curl)
	h <- new_handle()
	handle_setform(h, limit = "3")
	handle_setopt(h, customrequest = "POST")
	handle_setheaders(h,
	"X-HTTP-Method-Override" = "GET"
	)
	req <- curl_fetch_memory("http://data.techno-science.ca/api/3/action/package_list", handle = h)
	jsonlite::fromJSON(rawToChar(req$content))$result
	/*************
	* colors.js *
	*************
	*
	* You're almost at the exit. You just need to get past this
	* color lock.
	*
	* Changing your environment is no longer enough. You must
	* learn to change yourself. I've sent you a little something
	* that should help with that.