Как мне разобрать этот XML-документ в r?

Question

Я после названий магазинов и координат магазинов из: http://contact.woolworths.com.au/storelocator/service/proximity/supermarkets/latitude/-37.7510/longitude/144.8981/range/50/max/200.xml

например
<name>Niddrie</name>
<latitude>-37.737332</latitude>
<longtitude>144.892342</longtitude>

Как бы я это сделал?Я пробовал это:

library(XML)
library(methods)
library(xml2)

#https://stackoverflow.com/questions/17198658/how-to-parse-xml-to-r-data-frame 
data <- xmlParse("http://contact.woolworths.com.au/storelocator/service/proximity/supermarkets/latitude/-37.7510/longitude/144.8981/range/50/max/200.xml")
xml_data <- xmlToList(data)
location <- as.list(xml_data[["storeList"]][["storeRank"]][["storeDetail"]][["Name"]])

#https://www.datacamp.com/community/tutorials/r-data-import-tutorial#xml - not working
xmlfile <- xmlTreeParse("http://contact.woolworths.com.au/storelocator/service/proximity/supermarkets/latitude/-37.7510/longitude/144.8981/range/50/max/200.xml")
class(xmlfile)
topxml <- xmlRoot(xmlfile)
topxml <- xmlSApply(topxml,
                    function(x) xmlSApply(x, xmlValue))
xml_df <- data.frame(t(topxml),
                     row.names=NULL) 

Для обоих нет ошибок, но не имена, которые я хочу.То же самое с координатами.

Answer 1

Похоже, что XML может исходить только от API. имеет пространство имен, так что, вероятно, это вызывает у вас проблемы.Мы просто удалим его.

library(xml2)

xml_ns_strip(
  doc <- read_xml("http://contact.woolworths.com.au/storelocator/service/proximity/supermarkets/latitude/-37.7510/longitude/144.8981/range/50/max/200.xml")
) -> doc

data.frame(
  name = xml_text(xml_find_all(doc, ".//storeDetail/name")),
  lng = xml_double(xml_find_all(doc, ".//storeDetail/longtitude")),
  lat = xml_double(xml_find_all(doc, ".//storeDetail/latitude")),
  stringsAsFactors = FALSE
) -> stores

str(stores)
## 'data.frame': 188 obs. of  3 variables:
##  $ name: chr  "Niddrie" "Highpoint West" "Moonee Ponds" "East Keilor" ...
##  $ lng : num  145 145 145 145 145 ...
##  $ lat : num  -37.7 -37.8 -37.8 -37.7 -37.7 ...

Для тех, кто все еще использует XML ?:

library(XML)

doc <- xmlParse("http://contact.woolworths.com.au/storelocator/service/proximity/supermarkets/latitude/-37.7510/longitude/144.8981/range/50/max/200.xml")

def <- c(d = getDefaultNamespace(doc)[[1]]$uri)

data.frame(
  name = xpathSApply(doc, "//d:storeDetail/d:name", xmlValue, namespaces = def),
  lng = as.numeric(xpathSApply(doc, "//d:storeDetail/d:longtitude", xmlValue, namespaces = def)),
  lat = as.numeric(xpathSApply(doc, "//d:storeDetail/d:latitude", xmlValue, namespaces = def)),
  stringsAsFactors = FALSE
) -> stores