R/parse-rss.R

In feedeR: Read RSS, Atom and RDF Feeds

# Entry fields to include:
#
# - category
# - description
#
parse.rss <- function(feed) {
  feed <- feed$rss[["channel"]]
  #
  list(
    title = str_squish(feed$title[[1]]),
    link  = attributes(feed$link)$href,
    updated = parse.date(feed$lastBuildDate),
    items = bind_rows(lapply(feed[names(feed) == "item"], function(item) {
      if (is.null(item$title)) return(NULL)
      #
      date = if(is.null(item$pubDate)) NA else parse.date(item$pubDate)
      if (is.na(suppressWarnings(as.integer(date)))) return(NULL)
      #
      tibble(
        title = item$title[[1]],
        date  = date,
        link  = if(is.null(item$origLink)) item$link[[1]] else item$origLink[[1]],
        description = if(length(item$description) == 0) NA else item$description[[1]]
      )
    }))
  )
}