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

Question

我有一个链接，我需要下载“.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 中的任何选项吗？

Answer 1

只需使用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")