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()
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.