xmlTreeParse方法针对URL时报错及临时解决办法

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

http://gs-servers.com/R%E8%AF%AD ... %84GDP-6465179.html
这个网上的例子提到WDI包，给出了从世界银行的api接口获取数据的方法，
DF <- WDI(country = c("CN","RU","BR","ZA","IN"), indicator = "NY.GDP.MKTP.KD.ZG",
          start = 1990, end = 2010, extra = FALSE)
但是调用的时候报错，如下信息：
"No such file or directoryfailed to load external entity”
跟进到源代码中看了一下，报错的地方就是dat <- xmlTreeParse(daturl, useInternal = TRUE)这句，daturl是个（有效的）网址。

但是如果像下面这样，先download.file下来，再从本地的xml中读取却没问题。最后没办法，自己改了个下面的function getWDI来拿数据，跟原来方法的区别就是下面两句。
# download from URL
download.file(URL, localFile, mode = "wb")
# read from the downloaded file
dat <- xmlTreeParse(localFile, useInternal = TRUE)

不知道为什么直接从url解析不行，跟本地机器的什么环境配置有关么？大家有没有遇到过这个问题，指教下。[s:13]

1. DF <- getWDI(country = c("CN","RU","BR","ZA","IN"), indicator = "NY.GDP.MKTP.KD.ZG",
   
2.           start = 1990, end = 2010, extra = FALSE)
   
3. 
   
4. ################################################################################
   
5. # download data from world bank api and then read from the downloaded xml files
   
6. ################################################################################
   
7. getWDI <- function(country = "all", indicator = "NY.GNS.ICTR.GN.ZS", start = 2006,
   
8.                    end = 2010, extra = FALSE) {
   
9.   ## Clean user error
   
10.   indicator <- sub("^[ \t]+|[ fire\t]+$", "", indicator)
    
11.   country <- sub("^[ \t]+|[ \t]+$", "", country)
    
12. 
    
13.   ## Download data in XML format for each country and each indicator
    
14.   dat.full <- NULL
    
15.   dat.indicator <- NULL
    
16.   for (a in indicator) {
    
17.     for (b in country) {
    
18.       localFile <- paste(b, a, "xml", sep = ".")
    
19.       daturl <- paste("http://api.worldbank.org/countries/", b,
    
20.                       "/indicators/", a,
    
21.                       "?date=",start,":",end,
    
22.                       "&per_page=25000",
    
23.                       "&format=XML",
    
24.                       sep = "")
    
25.       # download from URL
    
26.       download.file(daturl , localFile, mode = "wb")
    
27.       # read from the downloaded file
    
28.       dat <- xmlTreeParse(localFile, useInternal = TRUE)
    
29.       iso2c <- unlist(lapply(getNodeSet(dat, "//wb:country"), xmlAttrs))
    
30.       dat <- xmlToDataFrame(dat)[,2:4]
    
31.       dat$iso2c <- iso2c
    
32. 
    
33.       ## Clean to ensure smooth merging
    
34.       colnames(dat) <- c("country","year", a, "iso2c")
    
35.       dat$year <- as.numeric(as.character(dat$year))
    
36.       dat$iso2c <- gsub(" ", "", as.character(dat$iso2c))
    
37.       dat$country <- gsub(" ", "", as.character(dat$country))
    
38.       dat.indicator <- rbind(dat.indicator, dat)
    
39.       daturl <- NULL
    
40.       localFile <- NULL
    
41.     }
    
42. 
    
43.     ## Merge
    
44.     if(is.null(dat.full)){
    
45.       dat.full <- dat.indicator
    
46.     }else{
    
47.       dat.full <- merge(dat.full, dat.indicator, all=TRUE)
    
48.     }
    
49.     dat.indicator <- NULL
    
50.   }
    
51. 
    
52.   ## Clean data
    
53.   dat.full <- dat.full[order(dat.full$iso2c, dat.full$year), c("country","iso2c", "year", indicator)]
    
54.   for (i in 3:ncol(dat.full)){dat.full[,i] <- as.numeric(as.character(dat.full[,i]))}
    
55. 
    
56.   ## Extras
    
57.   if(extra==TRUE){
    
58.     dat.full <- merge(dat.full, extra2010, all.x=TRUE)
    
59.   }
    
60.   return(dat.full)
    
61. }

复制代码

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：Tree 解决办法 url EPA ARS 接口 网上

这个命令和 系统（win\linux\mac） 有关，还和 http\https 协议有关，这个命令在 win8\64 位下没法下载，或者下载之后是破损的文件。
  
有一个包叫 downloader ，使用这个包的函数 download 可以正确下载文件，而且，download 和 download.file 参数是一致。
给个例子你——
install.packages("downloader")
library(downloader)

furl <- "https://d396qusza40orc.cloudfront.net/getdata%2Fdata%2Fss06hid.csv"
download(url=furl,destfile="./asc.csv")

LZ,我现在也遇到这个问题了，唉。
win8 x64位
难道必须要下载XML才能解析吗？

我也遇到了同样的问题，猜测可能是由于https导致的吧，没办法，只有先下载再加载了。