x = readLines("http://developer.r-project.org/R.svnlog.2007";)
rx = x[grep("^r",x)]
who = gsub(" ","",sapply(strsplit(rx,"\\|"),"[",2))
twho = table(who)
twho["ripley"]/sum(twho)74% of all commits! ______________________________________________ R-devel@r-project.org mailing list https://stat.ethz.ch/mailman/listinfo/r-devel
