R/rss.R

In rpx: R Interface to the ProteomeXchange Repository

##' Queries the PX rss feed file for the latest PX dataset
##' announcements.
##'
##' @title Return recent PX announcements 
##' @return A \code{data.frame} with announcements data set
##' identifiers, publication dates and annoucement messages.
##' @author Laurent Gatto
##' @examples
##' pxannounced()
pxannounced <- function() {
    rss <-
        "https://groups.google.com/forum/feed/proteomexchange/msgs/rss_v2_0.xml"
    x <- read_xml(rss)
    ## parse title
    ttls <- unlist(as_list(xml_find_all(x, "//title")))[-1]
    msg <- sub(" ProteomeXchange dataset.+$", "", ttls)
    msg <- sub(" for", "", msg)
    dat <- sub("^.+dataset ", "", ttls)
    n <- length(ttls)
    message(n, " new ProteomeXchange annoucements")
    names(ttls) <- NULL
    ## parse pubDate
    pubs <- unlist(as_list(xml_find_all(x, "//pubDate")))
    pubs <- strptime(pubs,  "%a, %d %b %Y %H:%M:%S", tz = "GMT")
    ann <- data.frame(Data.Set = dat,
                      Publication.Data = pubs,
                      Message = msg)
    return(ann) 
}