Skip to content

Instantly share code, notes, and snippets.

Michael Scroggie scrogster

Block or report user

Report or block scrogster

Hide content and notifications from this user.

Learn more about blocking users

Contact Support about this user’s behavior.

Learn more about reporting abuse

Report abuse
View GitHub Profile
@scrogster
scrogster / convert_align.R
Created Apr 20, 2018
Rmarkdown numbered equation helper
View convert_align.R
#I write papers and reports using Rmarkdown, knitting to pdf.
#My co-authors use word, so I usually knit a version to docx for them to edit.
#This mostly works flawlessly, except when I use \begin{align} and \end{align} to delimit display equations.
#Using \begin{align} and \end{align} results in nicely centered and numbered equations in pdf, BUT
#the equations don't render at all when I try to make a docx.
#As a quick hack so I can make a passable docx to share with my co-authors, the following script replaces all instances
#of \begin{align} and \end{align} with "$$". The modified version of the original Rmarkdown file knits to docx just fine,
# albeit without equation numbers.
View maorify.R
#function to substitute vowels with Maori macrons into text strings in R
#there's probably a fancier way to do this, but it works OK.
#just precede vowels requiring a macron with '@' and the function will substitute the appropriate vowel with macron.
#Handy for graph labelling etc.
maorify<-function(x){
x<-gsub("@a","\u0101", x) #macron a
x<-gsub("@e","\u0113", x) #macron e
x<-gsub("@i","\u012B", x) #macron i
x<-gsub("@o","\u014D", x) #macron o
@scrogster
scrogster / logo_add.r
Last active Aug 23, 2016
Adding a png logo to an R plot
View logo_add.r
library(png)
library(RCurl)
#I got these free png silhouettes of red fox and rabbit from phylopic.org
foxurl<-"http://phylopic.org/assets/images/submissions/51b1b6e4-129d-41a6-bbbd-c3fab459c25f.1024.png"
raburl<-"http://phylopic.org/assets/images/submissions/1e15411c-5394-4a9d-a209-76c8ac0c331d.1024.png"
fox_logo <- readPNG(getURLContent(foxurl))
rab_logo <- readPNG(getURLContent(raburl))
#utility function for embedding png images at specified fractional sizes in R plots
#places the logo centred on a specified fraction of the the usr space,
You can’t perform that action at this time.