R 在函数中存储变量

如何在函数中本地存储变量

testing <- function(number.info){
  if (!exists('x')){
    x <- 0
  }
    x <- x + number.info
  return(x)
}
testing(2)
testing(2)

---

测试您可以列出全局环境的值。或您的工作环境：

testing <- function(number.info){
  if (!exists('x')){
    x <- 0
  }
  x <- x + number.info
  list2env(list(x=x),.GlobalEnv)
  return(x)
}
testing(2)
[1] 2
testing(2)
[1] 4

测试
myenv=new.env()
testing <- function(number.info){

  if (!exists('x',envir = myenv)){
    assign("x", 0,envir = myenv)
  }
  x=get("x",envir = myenv) + number.info
  assign("x", x,envir = myenv)

  return(x)
}
testing(2)
[1] 2
testing(2)
[1] 4