Matthew Lincoln mdlincoln

## rdf-json-csv.txt
.head.vars as $fields | ($fields | @csv), (.results.bindings[] | [.[$fields[]].value] | @csv)

## rstudio-cc.yml
#cloud-config

# In order to access RStudio server via the web interface, you must log on with
# a user account that allows password access. This script does not add that user
# by default. You may either ssh as root into the server and `adduser` as
# normal, or script a user addition here:

# users:
#   - name: # username #
#     lock-passwd: false # allow login with password

## counts.csv

          
            year
            nationality
            artists_strict

            
              1550
              Flemish
              67

            
              1550
              Dutch
              38

            
              1551
              Flemish
              66

            
              1551
              Dutch
              38

            
              1552
              Flemish
              70

            
              1552
              Dutch
              37

            
              1553
              Flemish
              72

            
              1553
              Dutch
              37

            
              1554
              Flemish
              76

## excel_utf8.sh
iconv -t UTF8 -f MACROMAN < file.csv > file-utf8.csv

## downsample_pdf.sh
gs -sDEVICE=pdfwrite -dCompatibilityLevel=1.4 -dPDFSETTINGS=/ebook -dNOPAUSE -dQUIET -dBATCH -sOutputFile=OUTPUT.pdf INPUT.pdf

## yday_months.R
yday_months_x <- scale_x_discrete(breaks = cumsum(c(31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31)), labels = month.name)

## replace_each.R
#' Replace all matching values
#'
#' @param v Vector whose values are to be replaced
#' @param pairs A named vector of replacements
#' @export
#' @examples
#' x <- c("a", "a", "b", "c")
#' p <- c("a" = "alpha", "b" = "beta")
#' replace_each(x, p)
replace_each <- function(v, pairs) {

## pick-your-poison.R
msg <- function(..., prob = 0.25) {
  if (runif(1) > prob) {
    return(invisible())
  }

  messages <- c(...)
  message(sample(messages, 1))
}

encourage <- function() {

## rotate_labels.R
theme(axis.text.x = element_text(angle = 45, hjust = 1))

## mogrify.sh
convert image -density 300 -units pixelsperinch outimage
	#cloud-config

	# In order to access RStudio server via the web interface, you must log on with
	# a user account that allows password access. This script does not add that user
	# by default. You may either ssh as root into the server and `adduser` as
	# normal, or script a user addition here:

	# users:
	# - name: # username #
	# lock-passwd: false # allow login with password
year	nationality	artists_strict
1550	Flemish	67
1550	Dutch	38
1551	Flemish	66
1551	Dutch	38
1552	Flemish	70
1552	Dutch	37
1553	Flemish	72
1553	Dutch	37
1554	Flemish	76
	#' Replace all matching values
	#'
	#' @param v Vector whose values are to be replaced
	#' @param pairs A named vector of replacements
	#' @export
	#' @examples
	#' x <- c("a", "a", "b", "c")
	#' p <- c("a" = "alpha", "b" = "beta")
	#' replace_each(x, p)
	replace_each <- function(v, pairs) {
	msg <- function(..., prob = 0.25) {
	if (runif(1) > prob) {
	return(invisible())
	}

	messages <- c(...)
	message(sample(messages, 1))
	}

	encourage <- function() {