diff --git a/DESCRIPTION b/DESCRIPTION index 76efe66..42dd8bc 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -1,7 +1,7 @@ Package: tidyRSS Type: Package Title: Tidy RSS for R -Version: 1.2.7 +Version: 1.2.8 Author: Robert Myles McDonnell Maintainer: Robert Myles McDonnell Description: diff --git a/NEWS.md b/NEWS.md index 2eebe3e..b56e04a 100644 --- a/NEWS.md +++ b/NEWS.md @@ -1,3 +1,8 @@ +tidyRSS v1.2.8 (Release date: 05/03/2019) +============ +Changes: +Fix to add proper href links in Atom feeds. + tidyRSS v1.2.7 (Release date: 03/11/2018) ============ Changes: diff --git a/R/atom_parse.R b/R/atom_parse.R index 2e5c352..3a76da6 100644 --- a/R/atom_parse.R +++ b/R/atom_parse.R @@ -11,15 +11,16 @@ atom_parse <- function(doc){ res <- tibble::tibble( feed_title = xml2::xml_text(xml2::xml_find_all(doc, ns = ns, "atom:title")), - feed_link = xml2::xml_text(xml2::xml_find_first(doc, ns = ns, "atom:id")), + feed_link = xml2::xml_attr(xml2::xml_find_first(doc, ns = ns, "atom:link"), + attr = "href"), feed_author = xml2::xml_text(xml2::xml_find_first(doc, ns = ns, "atom:author")), feed_last_updated = xml2::xml_text(xml2::xml_find_first(doc, ns = ns, "atom:updated")), item_title = xml2::xml_text(xml2::xml_find_first(entries, ns = ns, "atom:title")), item_date_updated = xml2::xml_text(xml2::xml_find_first(entries, ns = ns, "atom:updated")) %>% lubridate::parse_date_time(orders = formats), - item_link = xml2::xml_text(xml2::xml_find_first(entries, ns = ns, - "atom:id")), + item_link = xml2::xml_attr(xml2::xml_find_first(entries, ns = ns, + "atom:link"), attr = "href"), item_content = xml2::xml_text(xml2::xml_find_first(entries, ns = ns, "atom:content")) )