R/ss.R

ss <-
function(x, pattern, slot=1,...) {
	sapply(strsplit(x,pattern,...), function(x) x[slot])
}
muschellij2/googleCite documentation built on May 23, 2019, 9:36 a.m.