abelsonlive/gist:4726453

## gistfile1.r
d <- read.csv("all_posts.csv",  stringsAsFactors=F)
pattern <- "regex here"
d$guns <- 0
d$guns[grep(pattern, d$text)] <- 1
d_guns <- d[d$guns==1,]
write.csv(d_guns, "gun_posts.csv", row.names=F)
	d <- read.csv("all_posts.csv", stringsAsFactors=F)
	pattern <- "regex here"
	d$guns <- 0
	d$guns[grep(pattern, d$text)] <- 1
	d_guns <- d[d$guns==1,]
	write.csv(d_guns, "gun_posts.csv", row.names=F)