Get SOA Mortality Table Information

get_SOA_mort_table_info.R

library(tidyverse)
library(xml2)

get_table_info <- function(.path) {
  possibly_read_xml <- purrr::possibly(read_xml, otherwise = NULL)
  .xml <- possibly_read_xml(.path)
  if (!is.null(.xml)) {
    table_info_columns <- 
      .xml %>%
      xml_find_all("//ContentClassification") %>%
      xml_children() %>%
      xml_name()
    
    table_info <- 
      .xml %>%
      xml_find_all("//ContentClassification") %>%
      xml_children() %>%
      xml_text()
    
    tibble(table_info_columns, table_info) %>%
      group_by(table_info_columns) %>%
      summarise(table_info = paste(table_info, collapse = ", ")) %>%
      spread(key = table_info_columns, value = table_info) %>%
      separate(KeyWord,
               into = c("table_layout", "usage", "nation"),
               sep = ", ")
  }
}

urls <-
  1076:1085 %>% 
  map_chr( ~ paste0("https://mort.soa.org/data/t", .x, ".xml"))

cso_info <- 
  urls %>% 
  map_dfr( ~ get_table_info(.x))