Hadley Wickham hadley

Chief Scientist at @posit-pbc

hadley / draw_tree.r

Created July 5, 2012 14:48

	# Draw R expressions as ascii trees
	library(stringr)
	library(testthat) # for the colourise function

	str_trunc <- function(x, width = getOption("width")) {
	ifelse(str_length(x) <= width, x, str_c(str_sub(x, 1, width - 3), "..."))
	}

	is.constant <- function(x) !is.language(x)
	is.leaf <- function(x) {

hadley / index.html

Created July 6, 2012 00:16

	<!DOCTYPE html>
	<meta charset="utf-8">
	<style></style>
	<body>
	<script src="http://d3js.org/d3.v2.min.js?2.9.6"></script>
	<script src="http://coffeescript.org/extras/coffee-script.js"></script>
	<script src="table.coffee" type="text/coffeescript"></script>

hadley / index.html

Created July 6, 2012 00:26

	<!DOCTYPE html>
	<meta charset="utf-8">
	<style></style>
	<body>
	<script src="http://d3js.org/d3.v2.js?2.9.6"></script>
	<script src="http://coffeescript.org/extras/coffee-script.js"></script>
	<script src="vis.coffee" type="text/coffeescript"></script>

	<svg width="400" height="400" id="chart"></svg>

hadley / with.r

Created July 6, 2012 23:44

	with(x, {
	f(z)
	})

	# Which of the following statements is this equivalent to?
	#
	# a) x$f(x$z)
	# b) f(x$z)
	# c) x$f(z)
	# d) f(z)

hadley / removeWords.r

Created July 10, 2012 17:48

	library(tm)

	x <- paste(sample(c(LETTERS, " "), 1e4, rep = T), collapse = "")
	words <- stopwords("english")
	match <- sprintf("\\b(%s)\\b", paste(words, collapse = "\|"))

	system.time(gsub(match, "", x))
	# Takes ~0.08 s

	# Home made solution, not quite equivalent but close.

hadley / tm.r

Created July 10, 2012 19:28


	library(stringr)
	library(tm)

	if (file.exists("english.rds")) {
	data <- readRDS("english.rds")
	} else {
	data <- read.csv("english_text.csv.gz", stringsAsFactors = FALSE)
	saveRDS(data, "english.rds")
	}

hadley / get-folder-path.c

Created July 23, 2012 17:11

	#include <R.h>
	#include <Rdefines.h>

	#ifdef WIN32

	#include <shlobj.h>
	// SHGetFolderPath documentation:
	// http://msdn.microsoft.com/en-us/library/windows/desktop/bb762181.aspx

	SEXP get_folder_path() {

hadley / vertoccurence.r

Created August 3, 2012 16:51

	vertoccurrence <- function(key="r_B68F3", grp="fish", t = NULL, l = NULL,
	c = NULL, d = NULL, q = NULL, p = NULL, m = NULL, cols = NULL, num = NULL,
	set = NULL)
	{
	grp <- match.arg(grp, c("bird", "herp", "fish"))
	url <- c(
	bird = "http://ornis2.ornisnet.org/api/v1/occurrence/?",
	herp = "http://herpnet2.org/api/v1/occurrence/?",
	fish = "http://www.fishnet2.net/api/v1/occurrence/?"
	)[grp]

hadley / vert-httr.r

Created August 3, 2012 17:04

	# OR with httr
	library(httr)

	vertoccurrence <- function(key="r_B68F3", grp="fish", t = NULL, l = NULL,
	c = NULL, d = NULL, q = NULL, p = NULL, m = NULL, cols = NULL, num = NULL,
	set = NULL)
	{
	grp <- match.arg(grp, c("bird", "herp", "fish"))
	url <- c(
	bird = "http://ornis2.ornisnet.org/api/v1/occurrence/",

hadley / document.r

Created August 8, 2012 17:21

	document <- function(pkg = NULL, clean = FALSE, roclets = c("collate", "namespace", "rd")) {
	require("roxygen2")
	man_path <- file.path(pkg$path)
	if (!file.path(pkg$path)) dir.create(man_path)

	message("Updating ", pkg$package, " documentation")

	pkg <- as.package(pkg)
	if (clean) {
	clear_caches()