自动下载.iqy文件并从中读取数据

时间:2017-06-15 08:30:38

标签: r excel-web-query

我有一个链接,我需要下载“.iqy”文件中的数据,我需要阅读该文件以便进一步清理。

我可以通过使用

输入文件中的链接(第3行)来手动完成

con <- file("ABC1.iqy", "r", blocking = FALSE) readLines(con=con,n=-1L,ok=TRUE, warn=FALSE,encoding='unknown').

输出:

[1] "WEB"
[2] "1"
[3] "https:abc.../excel/execution/EPnx?view=vrs" [4] ""
[5] ""
[6] "Selection=AllTables"
[7] "Formatting=None"
[8] "PreFormattedTextToColumns=True"
[9] "ConsecutiveDelimitersAsOne=True"
[10] "SingleBlockTextImport=False"
[11] "DisableDateRecognition=False"
[12] "DisableRedirections=False"
[13] ""

我需要自动执行此操作,而不是手动执行此操作。我可以使用r中的任何选项吗?

1 个答案:

答案 0 :(得分:0)

只需使用download.file:)

con <- file("ABC1.iqy", "r", blocking = FALSE)
dest_path <- "ABC.file"
download.file(readLines(con=con,n=-1L,ok=TRUE, warn=FALSE,encoding='unknown')[3],destfile= dest_path)

如果您无法阅读所获得的文件,请尝试:

download.file(readLines(con=con,n=-1L,ok=TRUE, warn=FALSE,encoding='unknown')[3],destfile= dest_path, mode = "wb")