R/get_data_from_xml_de.R

In cutterkom/germanpolls: German Polling Data

#' Get data of Germany
#'
#' Function to get data from German wide polls: http://www.wahlrecht.de/umfragen/bundesweite.xml
#' @return dataframe
#' @importFrom xml2 read_xml
#' @importFrom xml2 xml_find_all
#' @importFrom xml2 xml_children
#' @importFrom xml2 xml_name
#' @importFrom xml2 xml_attrs
#' @importFrom xml2 xml_text
#' @importFrom magrittr %>%
#' @importFrom purrr set_names
#' @importFrom purrr flatten
#' @importFrom purrr map
#' @importFrom purrr map_df
#' @importFrom readr type_convert
#' @export

get_data_from_xml_de <- function() {
  url <- "http://www.wahlrecht.de/umfragen/bundesweite.xml"
  print(url)

  df <- xml2::read_xml(url) %>% 
    xml2::xml_find_all("//umfragen/*") %>% 
    purrr::map_df(~purrr::flatten(c(xml2::xml_attrs(.x), 
                      purrr::map(xml2::xml_children(.x), 
                          ~purrr::set_names(as.list(xml2::xml_text(.x)), xml2::xml_name(.x)))))) %>%
    type_convert()
  
  return(df)
}