manage-data-xml.R

library(xml2)
library(XML)
library(tibble)
employee_data <- read_xml("data.xml")
employee_xml <- xmlParse(employee_data)
xml_structure(employee_data)

## <employees>
##   <employee>
##     <id>
##       {text}
##     <name>
##       {text}
##   <employee>
##     <id>
##       {text}
##     <name>
##       {text}
##   <employee>
##     <id>
##       {text}
##     <name>
##       {text}

# Extract id and name info
name <- xml_text(xml_find_all(employee_data, ".//name"))
id <- xml_integer(xml_find_all(employee_data, ".//id"))
# Format as a tibble
df_data <- tibble(ID = id, Name = name)
print(df_data)

## # A tibble: 3 × 2
##      ID Name 
##   <int> <chr>
## 1     1 Apple
## 2     2 Mango
## 3     3 Kiwi