获取累积的SE声誉总量

Question

由于我是R的新手，我已经将这些代码以rag-tag方式拉到了一起，但是我想知道，是否有类似于列表推导的内容（在Python中）我可以在R中使用它来使这更简单？基本上，我可以遍历列表中的所有项目，只保留一个子项目，然后将sum应用于列表新的未打包列表吗？

我正在尝试获取用户在Stack Exchange上累积的声誉总量。理想情况下，我正在寻找一种方法来删除for循环，并对项目包含的信誉使用sum函数（来自API响应）。

library(httr)
s = 0
for(i in content(GET(paste("http://api.stackexchange.com/users/",readline(),"/associated",sep="")))$items) {
  q=i$reputation
  if (q>101) 
    s=s+q
}
print(s)

示例输入将是用户的ID，例如10400443。