kjhealy

module Jekyll
  class MathJaxBlockTag < Liquid::Tag
    def render(context)
      '<script type="math/tex; mode=display">'
    end
  end
class MathJaxInlineTag < Liquid::Tag
    def render(context)
      '<script type="math/tex">'
    end

kjhealy

RMDFILE=demo-rmd-pandoc
PANDOC=~/.cabal/bin/pandoc

all:
	Rscript -e "require(knitr); require(markdown); knit('$(RMDFILE).rmd', '$(RMDFILE).md'); purl('$(RMDFILE).rmd')"
	${PANDOC} --mathjax --toc -B header.html -A footer.html --bibliography refs.bib --css markdown.css -s $(RMDFILE).md -o $(RMDFILE).html
 

kjhealy

#!/bin/sh
## Information
## http://carlo-hamalainen.net/blog/2007/12/11/installing-minion-pro-fonts/
## http://www.ctan.org/tex-archive/fonts/mnsymbol/

## 0.1: Install LCDF Typetools
## http://www.lcdf.org/type/
## If you use Homebrew (http://mxcl.github.com/homebrew/), then uncomment: 
# brew install lcdf-typetools 

kjhealy

PREFIX=$HOME
VERSION=1.2.3

# Install Protocol Buffers
wget http://protobuf.googlecode.com/files/protobuf-2.4.1.tar.bz2
tar -xf protobuf-2.4.1.tar.bz2 
cd protobuf-2.4.1
./configure --prefix=$PREFIX
make
make install

kjhealy

doInstall <- TRUE  # Change to FALSE if you don't want packages installed.
toInstall <- c("sna", "ggplot2", "Hmisc", "reshape2")
if(doInstall){install.packages(toInstall, repos = "http://cran.r-project.org")}
lapply(toInstall, library, character.only = TRUE)

# Empty ggplot2 theme
new_theme_empty <- theme_bw()
new_theme_empty$line <- element_blank()
new_theme_empty$rect <- element_blank()
new_theme_empty$strip.text <- element_blank()

kjhealy

doInstall <- TRUE
toInstall <- c("ggplot2", "poLCA", "reshape2")
if(doInstall){install.packages(toInstall, repos = "http://cran.us.r-project.org")}
lapply(toInstall, library, character.only = TRUE)

ANES <- read.csv("http://www.oberlin.edu/faculty/cdesante/assets/downloads/ANES.csv")
ANES <- ANES[ANES$year == 2008, -c(1, 11, 17)]  # Limit to just 2008 respondents,
head(ANES)  # remove some non-helpful variables
# Adjust so that 1 is the minimum value for each variable:
ANES <- data.frame(apply(ANES, 2, function(cc){  cc - min(cc, na.rm = T) + 1  }))

kjhealy

id,authors,date,event,title,type,abstract
709815,"Emmanuel Saez, University of California-Berkeley","Fri, August 15, 7:00 to 9:00pm, TBA",Opening Plenary Session. Hard Times: The Concentrations of Income and Wealth,Inequality and Opportunity in the United States,Plenary,
709816,"Thomas M. Shapiro, Brandeis University; Melvin L. Oliver, University of California-Santa Barbara","Fri, August 15, 7:00 to 9:00pm, TBA",Opening Plenary Session. Hard Times: The Concentrations of Income and Wealth,Black Wealth/White Wealth Revisited,Plenary,
709817,"Leslie McCall, Northwestern University","Fri, August 15, 7:00 to 9:00pm, TBA",Opening Plenary Session. Hard Times: The Concentrations of Income and Wealth,How Americans Think about Economic Inequality,Plenary,
710353,"Jay MacLeod, Parish of All Saints and Author","Sat, August 16, 12:30 to 2:10pm, TBA",Plenary Session. Social Class in Daily Life,Outclassed,Plenary,
710354,"Linda Marie Burton, Duke University","Sat, August 16, 12:30 to 2:10pm, TBA",Plenary Session. Social Cla

kjhealy

# sources:
# http://www.jgoodwin.net/?p=1223
# http://orgtheory.wordpress.com/2012/05/16/the-fragile-network-of-econ-soc-readings/
# http://nealcaren.web.unc.edu/a-sociology-citation-network/
# http://kieranhealy.org/blog/archives/2014/11/15/top-ten-by-decade/
# http://www.jgoodwin.net/lit-cites.png


###########################################################################
# This first section scrapes content from the Web of Science webpage. It takes

kjhealy

Shortcut for Syntax Highlighting in Keynote

The idea is based on a gist by @jimbojsb.

You can use Pygments or Highlight.

Install Pygments

brew install python

kjhealy

library(XML)
library(ggplot2)

df <- readHTMLTable("http://projects.dailycal.org/paychecker/departments/")[[1]]

DeMoney <- function(x) as.numeric(gsub(",", "", gsub("\\$", "", as.character(x))))

money.columns <- c("All", "Professor", "Associate professor", "Assistant professor", 
                   "Lecturer")