demo/RBloggers.R

In noahhl/r-does-rss: Lightweight RSS/Atom reader for R

GetRBloggers <- function() {
  since <- file.info("~/.Rapp.history")$ctime
  if(is.null(since))
  	since <- Sys.date - 7
  rbloggers <- getFeed("feed://www.r-bloggers.com/feed/")

  toPrint <-"\nR-bloggers updates since your last use of R:\n"
  printed <- 0
  for(i in 1:length(rbloggers$items)) {
  	if(rbloggers$items[[1]]$pubDate > since & !is.null(rbloggers$items[[i]]$title)) {
  		toPrint <- paste(toPrint, rbloggers$items[[i]]$title, "\n")
  		printed <- printed +1
  	}
  }
  if(printed==0) 
  	toPrint <- paste(toPrint, "No new updates\n")
  cat(toPrint)  
}
.GetRBloggers()