R 神秘的关1错误

我尝试运行的代码是：

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)
  }

库（“devtools”）
pull_列表是sha空列表之一吗？Null不是一个元素，因此列表会很短。如果使用
lappy（pull\u list，function（x）if（length（x$content））unlist（x$content[[1]]['sha']，use.names=F））
@legazeit:
是否应该试试默认值（）
克服元素为空的问题？@lukeA:为什么您的解决方案返回687而我的686？因为，当我记得正确时，您的解决方案会删除Shau列表中的最后一个元素，它应该为空。我不知道为什么。但我不会太麻烦，因为不管怎样，直接的解决方案更可取。