为什么RStudio中的代码错误（在终端上运行良好）？：评估嵌套太深

Question

我正在尝试解决R：

中的Euler problem #1

  

查找低于1000的3或5的所有倍数的总和。

以下代码可以很好地工作并在终端中生成准确的结果：

limit <- 1000
NumSet <- function(n){((1:floor((limit - 1)/n)) * n)}
result <- sum(NumSet(3)) + sum(NumSet(5))- sum(NumSet(15)) 
print(result)

当我在RStudio中尝试时，发生以下错误：

Error: evaluation nested too deeply: infinite recursion / options(expressions=)?

这有什么问题？

1 R:        3.0.0
2 RStudio:      0.97.336
3 OS:       ubuntu-12.10,64-bit