Read/write XML sitemaps in R

read_sitemap.R

library("xml2")

handle_node <- function(x) {
  name <- xml_name(x)
  content <- xml_text(x)
  if (name == "lastmod") {
    content <- lubridate::ymd(content)
  }
  content <- list(content)
  names(content) <- name
  content
}

handle_url <- function(x) {
  lmap(xml_children(x), handle_node)
}

handle_sitemap <- function(x) {
  map(xml_children(x), handle_url)
}

read_sitemap <- function(path) {
  handle_sitemap(read_xml(path)) %>%
    map_dfr(as_tibble)
}