r - curl_fetch_disk 关闭且没有错误消息
问题描述
下面的代码在没有错误消息的情况下在一分钟后继续关闭。有人知道为什么吗?我认为这与 curl_fetch_disk 函数有关...
library(dplyr)
library(curl)
main.dir <- "C:/Users/blue/Desktop/Arc"
liste.urls <- read.csv('C:/Users/blue/Desktop/Arc/test2.csv', header = FALSE)
subsub.dir <- 'hydro_l'
liste.urls$hydro_l <- paste0(liste.urls$V1, "/hydro_l/")
liste.urls$rep <- sapply(liste.urls, substring, 94, 100)
for (i in 1:length(liste.urls)) {
url.download <- as.character(liste.urls$hydro_l[i+6])
handle = new_handle(dirlistonly = TRUE)
con = curl(url.download, "r", handle)
tbl = read.table(con, stringsAsFactors = TRUE, fill = TRUE)
close(con)
head(tbl)
liste.fichiers.urls <- paste0(url.download, tbl[, 1])
fichiers = basename(liste.fichiers.urls)
sub.dir <- liste.urls$rep[i+6]
dir.create(file.path(main.dir, sub.dir))
dir.create(file.path(main.dir, sub.dir, subsub.dir))
setwd(file.path(main.dir, sub.dir, subsub.dir))
for (j in 1:length(liste.fichiers.urls)) {
curl_fetch_disk(liste.fichiers.urls[j], fichiers[j])
}
}
解决方案
推荐阅读
- stm32 - 未提供输入时 GPIO 中断触发
- r - 为什么从使用不同字符 (å > a) 编码的数据帧中提取值?
- javascript - 如何使用 React.Context 进行事件跟踪
- java - 嵌套流异常
- python - Flask-SQLalchemy 分页错误,无法为端点构建 url
- laravel - 如何使用 Laravel API 资源对加载的关系进行分页
- arrays - 如何在索引处访问数组字典的数组值?
- isabelle - 在 Isabelle 中完善定义
- python - 无法使用 Python 请求会话模块登录网站
- node.js - 如何在开发模式下针对大量记录优化 MongoDB 查询?