带计数器的R中的全局变量

我对R的全局变量和/或工作流有疑问。我有以下代码

counter <- 0
g <- function(){
f <- function(){
  counter <- counter + 1
  print(counter)
}
f()
f()
f()
}
g()
g()
g()

---

计数器我们可能需要执行赋值运算符（

g <- function(){
  f <- function(){
  counter <<- counter + 1
  print(counter)
 }
f()
f()
f()
}

g()
#[1] 1
#[1] 2
#[1] 3
g()
#[1] 4
#[1] 5
#[1] 6

g()
#[1] 7
#[1] 8
#[1] 9