Since Peter Dalgaard is splitting his considerable contributions between
"Peter Dalgaard" and "peter dalgaard", I made the following changes
(which shouldn't be a problem unless e e cummings becomes a regular poster):
# from base::chartr documentation
capwords <- function(s, strict = FALSE) {
cap <- function(s) paste(toupper(substring(s,1,1)),
{s <- substring(s,2); if(strict) tolower(s) else s},
sep = "", collapse = " " )
sapply(strsplit(s, split = " "), cap, USE.NAMES = !is.null(names(s)))
}
cnames <- capwords(sapply(zz[3:(length(zz)-1)],namefun))
On 8/17/2010 10:00 AM, Henrique Dallazuanna wrote:
Ben,
I change the line:
z<- getURL(paste(baseurl,list,"/", month,"/author.html",sep=""))
to
z<- getURL(paste(baseurl,list,"/", month,"/author.html",sep=""),
ssl.verifypeer = FALSE)
because don't work for me.
Nice!
On Tue, Aug 17, 2010 at 1:47 PM, Ben Bolker<bbol...@gmail.com> wrote:
month<- "2010-August"
list<- "r-help"
##list<- "r-sig-ecology"
##list<- "r-sig-mixed-models"
## month<- "2010q3"
n<- 50
baseurl<- "https://stat.ethz.ch/pipermail/";
library(RCurl)
z<- getURL(paste(baseurl,list,"/",month,"/author.html",sep=""))
zz<- strsplit(z,"<LI>")[[1]]
namefun<- function(x) {
gsub("\\n","",gsub("^.+<I>","",gsub("</I>.+$","",x)))
}
cnames<- sapply(zz[3:(length(zz)-1)],namefun)
rr<- rev(sort(table(cnames)))
library(lattice)
dotplot(~rev(rr[1:n]),xlab="Number of posts")
dotplot(~rev(rr[1:n]),xlab="Number of posts",
scales=list(x=list(log=10)))
______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide
http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
--
Brian Diggs
Senior Research Associate, Department of Surgery, Oregon Health &
Science University
______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
