神秘的关闭1错误

Question

我尝试运行的代码是：

library("devtools")
pull_lists <- source_gist("6f3c8adad9aded7ae5dd")
pull_lists <- pull_lists[[1]]

sha_list <- vector("list", length(pull_lists))
  for (i in 1:length(pull_lists)){
    try_default(sha_list[i] <- pull_lists[[i]]$content[[1]]$sha, default = NULL)
  }

最初pull_lists因此sha_list的长度为687，但是当循环完成时，长度为686.这怎么可能？