Jeroen Janssens jeroenjanssens

Some `jq` examples translated from https://github.com/jsonlines/guide

jq can be downloaded from https://stedolan.github.io/jq/download/.

curl https://raw.githubusercontent.com/jsonlines/guide/master/datagov100.json > data.json

$ < data.json jq '.name' | head -n 6

If your R script uses senstive information such as a password, then it's best to keep this in a seperate file (and perhaps outside the project's repository). Moreover, if you're giving a live demo using RStudio, then you should avoid putting this senstive information in your global environment.

If you put it in a YAML file, say .my_project.yaml, which may look as follows:

---
api_service:
  username: foo
  password: bar123!

	#!/usr/bin/env python3

	import json
	import string

	prefix_key = "b" # My prefix key in tmux is Ctrl-B
	prefix_hex = "02" # The hex code that iTerm sends (corresponds to Ctrl-B)

	keys_upper = string.ascii_uppercase + r'!@#$%^&*()_+{}:"\|<>?~'
	keys_lower = string.ascii_lowercase + r"1234567890-=[];'\,./`"

	#!/usr/bin/env RScript
	messages <- purrr::map_chr(devtools::test(),
	list("results", 1, "message"))
	q("no", status = sum(messages != "success"))

	library(tidyverse)
	library(magrittr)
	library(stringr)
	library(readxl)

	directory <- "bunch/of/excel/files"

	# Get an overview of all the Excel files and their sheets
	sheets <-
	data_frame(file = list.files(directory, full.names = TRUE),

	library(rvest)

	html_more_nodes <- function(session, css, more_css) {
	xml2:::xml_nodeset(c(
	html_nodes(session, css),
	tryCatch({
	html_more_nodes(follow_link(session, css = more_css),
	css, more_css)
	}, error = function(e) NULL)
	))

	library(tidyverse)

	keep_top_n <- function(df, col, n = 10) {
	semi_join(df, head(count_(df, col, sort = TRUE), n))
	}

	data(mpg)
	# All car models
	mpg %>% nrow()
	# Just car models of top three manufacturers

	## Run RStudio Desktop
	$ rstudio-bin

	## Attach debugger
	$ sudo gdb -p $(pgrep rsession)
	(gdb) cont
	Continuing.

	## In RStudio, try to connect to Aster
	> library(TeradataAsterR)

	#' Cache the result of an expression.
	#'
	#' Use \code{options(cache.path = "...")} to change the cache directory (which
	#' is the current working directory by default).
	#'
	#' @param expr expression to evaluate
	#' @param key basename for cache file
	#' @param ignore_cache evalute expression regardless of cache file?
	#' @return result of expression or read from cache file
	#'

	# make sure that you have the R package `ggmap` installed
	curl -s http://api.citybik.es/citi-bike-nyc.json > citibikes.json
	< citibikes.json jq -r '.[] \| [.lat/1000000,.lng/1000000,.bikes] \| @csv' \| header -a lat,lng,bikes > citibikes.csv
	< citibikes.csv Rio -vge 'require(ggmap); qmap("NYC", zoom=14) + geom_point(data=df, aes(x=lng, y=lat, size=bikes))' > citibikes.png

Jeroen Janssens jeroenjanssens

Some jq examples translated from https://github.com/jsonlines/guide

Some `jq` examples translated from https://github.com/jsonlines/guide