Kirill Müller krlmlr

Locate the section for your github remote in the .git/config file. It looks like this:

[remote "origin"]
	fetch = +refs/heads/*:refs/remotes/origin/*
	url = [email protected]:joyent/node.git

Now add the line fetch = +refs/pull/*/head:refs/remotes/origin/pr/* to this section. Obviously, change the github url to match your project's URL. It ends up looking like this:

There are packages for this now!

2017-08-03: Since I wrote this in 2014, the universe, specifically Kirill Müller (https://github.com/krlmlr), has provided better solutions to this problem. I now recommend that you use one of these two packages:

rprojroot: This is the main package with functions to help you express paths in a way that will "just work" when developing interactively in an RStudio Project and when you render your file.
here: A lightweight wrapper around rprojroot that anticipates the most likely scenario: you want to write paths relative to the top-level directory, defined as an RStudio project or Git repo. TRY THIS FIRST.

I love these packages so much I wrote an ode to here.

I use these packages now instead of what I describe below. I'll leave this gist up for historical interest. 😆

Using mdbtools to extract CSV data from the FAA Wildlife Strike database (`.accdb`, Microsoft Access)

These instructions are specifically for OSX and *.nix users who have access to Bash. If you're on Windows...you should probably just use Microsoft Access...

For a more convoluted example of how to use mdbtools to automate the conversion of an Access database, you can see this example I posted with the Florida prisons database (not recommended for Bash novices)

To just get the data as CSV, you can download it from here:

http://stash.compjour.org/samples/faa-wildlife-strikes.zip

If you configure git like this:

git config filter.sqlite3.clean 'sqlite3 %f .dump'
git config filter.sqlite3.smudge 'sqlite3 %f'
echo '*.db filter=sqlite3' >> .git/info/attributes

and you have an sqlite3 database in a *.db file:

	$ git branch -r --merged \|
	grep origin \|
	grep -v '>' \|
	grep -v master \|
	xargs -L1 \|
	awk '{split($0,a,"/"); print a[2]}' \|
	xargs git push origin --delete

	template <class Fun>
	class ScopeGuard {
	Fun f_;
	bool active_;
	public:
	ScopeGuard(Fun f)
	: f_(std::move(f))
	, active_(true) {
	}
	~ScopeGuard() { if (active_) f_(); }

	# ==== Creating UTF-8 strings ====
	# This is how to create a string with UTF-8 encoding. This should work
	# regardless of the current locale settings.
	x <- rawToChar(as.raw(c(0xe5, 0x8d, 0x88)))
	Encoding(x) <- "UTF-8"
	x
	# [1] "午"

	# Another string, 'Δ★😎'
	pat <- rawToChar(as.raw(c(0xce, 0x94, 0xe2, 0x98, 0x85, 0xf0, 0x9f, 0x98, 0x8e)))

	library(shiny)

	# WARNING: This sketch does not make proper use of the "state" parameter.
	# Doing so usually involves using cookies, which can be done with the
	# Rook package but I have not done that here. If you choose to use this
	# approach in production, please check the state parameter properly!

	APP_URL <- if (interactive()) {
	# This might be useful for local development. If not, just hardcode APP_URL
	# to the deployed URL that you'll provide a few lines below.

	library(shiny)
	library(httr)

	# OAuth setup --------------------------------------------------------

	# Most OAuth applications require that you redirect to a fixed and known
	# set of URLs. Many only allow you to redirect to a single URL: if this
	# is the case for, you'll need to create an app for testing with a localhost
	# url, and an app for your deployed app.

	library(tidyverse)
	library(glue)

	# i have my reasons, please dont burn my computer
	setwd("~/git/r-source")

	extract_isna <- function(.){
	cat( "\r", . )
	invisible( system(paste0('git checkout -q -f ', .)) )

Kirill Müller krlmlr

There are packages for this now!

Using mdbtools to extract CSV data from the FAA Wildlife Strike database (.accdb, Microsoft Access)

Using mdbtools to extract CSV data from the FAA Wildlife Strike database (`.accdb`, Microsoft Access)