def xml2df(url):
# make some terrible R code
from rpy2.robjects.packages import SignatureTranslatedAnonymousPackage
from rpy2.robjects import pandas2ri
string = """
require(XML)
require(plyr)
getXML <- function(x) {
xmlfile <- xmlTreeParse(x)
temp = xmlToList(xmlfile, addAttributes = F)
df <- ldply(temp, .fun=function(x) {data.frame(t(unlist(x)))})
return(df)
}
"""
test = SignatureTranslatedAnonymousPackage(string, "test")
# make a pandas DF out of the stupid R df
pydf = pandas2ri.ri2py_dataframe(test.getXML(url))
return pydf
