如何解决错误“ vec_assign”是什么:“ value”应该已经被回收以适应“ x”试图告诉我
我有一个功能,可以进行一些基本的Web收集。成功登录后将调用此函数。 (该网站已被屏蔽xxxxxx)
搜索功能:
search <-function(HorseList){
url <- "http://tnetwork.xxxxxx.com/tnet/HorseSearch.aspx"
s <- GET(url)
xxxxxx <- tibble(
horse_name = character(),race_date = character(),race_nbr = character(),trk = character(),peak = character(),dist_run = character()
)
for (row in 1:nrow(HorseList))
{
url <-paste(c('http://tnetwork.xxxxxx.com/tnet/HorseSearchAPI.aspx?HorseName=',toString(HorseList[[row,1]])),collapse='')
#print(url)
h <- GET(url)
temp<-content(h,"text")
doc <- htmlParse(temp)
horse_name <- HorseList[[row,1]]
horse_ID <-xpathSApply(doc,"//*[@id=\"resultsDiv\"]/p[1]/a/@href")
horse_ID <-substr(horse_ID,27,40)
h_list <- list()
c <- nchar(horse_ID)
if (length(c)>0)
{
h_list[1] <- horse_ID
}
id_count <- length(h_list)
for (k in 1:id_count)
{
url <-paste(c('http://tnetwork.xxxxxx.com/tnet/t_PastPerf.aspx?HorseID=',toString(h_list[k])),collapse='')
t <- GET(url)
temp <- content(t,"text")
pastperf <- htmlParse(temp)
row_count<-length(xpathSApply(pastperf,"//*[@id=\"pastPerfTable\"]/tr"))
for(j in 2:row_count)
{
j<- toString(j)
race_data <- xpathSApply(pastperf,paste("//*[@id=\"pastPerfTable\"]/tr[",j,"]/td[1][1]"),xmlValue)
race_date <- substr(race_data,1,10)
race_number <-trimws(substr(race_data,12,100))
horse_name <- URLdecode(toString(horse_name))
race_nbr = str_match(race_number,'(Race\\s\\d+)(.*)')[,2]
trk = str_match(race_number,3]
peak <-xpathSApply(pastperf,"]/td[13]"),xmlValue)
cum_distance <-xpathSApply(pastperf,"]/td[14]"),xmlValue)
newrow <- paste(horse_name,',race_date,race_nbr,trk,peak,cum_distance)
xxxxxx <- add_row(trakus,horse_name = horse_name,race_date = race_date,race_nbr = race_nbr,trk=trk,peak = peak,dist_run = cum_distance)
}
}
}
return(xxxxxx)
}
该函数过去曾成功运行过,但今天却引发以下错误:
Error: Internal error in `vec_assign()`: `value` should have been recycled to fit `x`.
我运行了rlang :: last_error()和last_trace()命令来获得更多的见解,但是我仍然不确定发生了什么。
> rlang::last_error()
<error/rlang_error>
Internal error in `vec_assign()`: `value` should have been recycled to fit `x`.
Backtrace:
1. base::source("~/TimeForm/Scripts/past_perf.R",echo = TRUE)
6. global::search(horse_list) ~/TimeForm/Scripts/past_perf.R:627:2
7. tibble::add_row(...) ~/TimeForm/Scripts/past_perf.R:85:8
8. tibble:::rbind_at(.data,df,pos)
9. vctrs::vec_rbind(old,new)
Run `rlang::last_trace()` to see the full context.
> rlang::last_trace()
<error/rlang_error>
Internal error in `vec_assign()`: `value` should have been recycled to fit `x`.
Backtrace:
x
1. +-base::source("~/TimeForm/Scripts/past_perf.R",echo = TRUE)
2. +-base::source("~/TimeForm/Scripts/past_perf.R",echo = TRUE)
3. | +-base::withVisible(eval(ei,envir))
4. | \-base::eval(ei,envir)
5. | \-base::eval(ei,envir)
6. \-global::search(horse_list) ~/TimeForm/Scripts/past_perf.R:627:2
7. \-tibble::add_row(...) ~/TimeForm/Scripts/past_perf.R:85:8
8. \-tibble:::rbind_at(.data,pos)
9. \-vctrs::vec_rbind(old,new)
10. \-(function () ...
在我的代码中似乎出现了add_row()行,但我不确定该错误说明了什么或如何解决。有没有人可以分享任何见识?
解决方法
我发现问题出现在处理空字符字段、空值或使用NA。问题已通过 map_if 替换空值得到纠正。
map_depth(.depth = 1,map_if,is_empty,~paste0(""))
当然,您需要调整深度命令以在适合您的列表结构的级别进行更正。
理想情况下,bind_rows() 可以更稳健地处理包含 NA 或 NULL 值的向量。
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。