I hereby claim:
- I am daveparr on github.
- I am davidparr (https://keybase.io/davidparr) on keybase.
- I have a public key ASCCw3b-OV_PMeNMaOBikvJ7A-qeNksHc8R2pAfHtPIoJgo
To claim this, I am signing this object:
format = """$sudo$os$shell$directory$git_branch$git_status$package$python$conda$rlang$all""" | |
right_format = """""" | |
palette = 'dark' | |
[palettes.light] | |
orange = '#FBB86C' | |
highlight_orange = '#FFAD00' | |
text_orange = '#FFD7A1' |
p "synth" $ jux (# speed "[-0.8 6? 2 1]") | |
$ weave 15 (n (arp "pinkyup" "c'min'8") # s "superhex" ) | |
[vowel "a e i u", | |
vowel "i [i o] e [o u]", | |
vowel "<o? u? i? a?>", | |
crush "<5 [3 2]?>", | |
gain (sine) | |
] |
I hereby claim:
To claim this, I am signing this object:
--- | |
title: "Untitled" | |
author: "David Parr" | |
date: "14 August 2018" | |
output: html_document | |
--- | |
```{r setup, include=FALSE} | |
knitr::opts_chunk$set(echo = TRUE) | |
``` |
## ------------------------------------------------------------------------ | |
# Set the repo for use throughout | |
cran <- "https://cran.rstudio.org" | |
# Install | |
if(!require(miniCRAN)){ | |
install.packages("miniCRAN", repos = cran) | |
} | |
## ------------------------------------------------------------------------ |
# Sourced from http://brooksandrew.github.io/simpleblog/articles/blogging-with-r-markdown-and-jekyll-using-knitr/ | |
KnitPost <- function(site.path='/pathToYourBlog/', overwriteAll=F, overwriteOne=NULL) { | |
if(!'package:knitr' %in% search()) library('knitr') | |
## Blog-specific directories. This will depend on how you organize your blog. | |
site.path <- site.path # directory of jekyll blog (including trailing slash) | |
rmd.path <- paste0(site.path, "_Rmd") # directory where your Rmd-files reside (relative to base) | |
fig.dir <- "assets/Rfig/" # directory to save figures | |
posts.path <- paste0(site.path, "_posts/articles/") # directory for converted markdown files |
# Truly the most ridiculous thing I could think of. | |
doInstall <- TRUE # Change to FALSE if you don't want packages installed. | |
toInstall <- c("XML", "png", "devtools", "RCurl") | |
if(doInstall){install.packages(toInstall, repos = "http://cran.r-project.org")} | |
lapply(toInstall, library, character.only = TRUE) | |
# Some helper functions, lineFinder and makeTable | |
source_gist("818983") | |
source_gist("818986") |
#' When plotting multiple data series that share a common x axis but different y axes, | |
#' we can just plot each graph separately. This suffers from the drawback that the shared axis will typically | |
#' not align across graphs due to different plot margins. | |
#' One easy solution is to reshape2::melt() the data and use ggplot2's facet_grid() mapping. However, there is | |
#' no way to label individual y axes. | |
#' facet_grid() and facet_wrap() were designed to plot small multiples, where both x- and y-axis ranges are | |
#' shared acros all plots in the facetting. While the facet_ calls allow us to use different scales with | |
#' the \code{scales = "free"} argument, they should not be used this way. | |
#' A more robust approach is to the grid package grid.draw(), rbind() and ggplotGrob() to create a grid of | |
#' individual plots where the plot axes are properly aligned within the grid. |