Hi there,
I am trying to parse XML data and getting the below error
internal error: Huge input lookup
Here are the codes:
xml.url <- "Collection : <? echo $this_gname; ?>"
getRSS <- function(xml.url){
medbio <- getURL(xml.url)
doc <- xmlParse(medbio)
root <- xmlRoot(doc)
rss <- xmlSApply(root, function(x) xmlSApply(x, xmlValue))
newdf <- data.frame()
for (i in 3:length(rss)) {
df <- data.frame(t(rss[i]$item))
newdf <- rbind(newdf, collectAuthors(df))
}
newdf <- cbind("id" = sprintf("%1.0f", 1:nrow(newdf)), newdf)
return(newdf)
}
rssdf <- getRSS(xml.url)
Error comes from doc <- xmlParse(medbio)$
Please help me.
Thanks,
Hira