edit global variable in my package

场景

最近自己做了个R语言的package，主要是封装一些功能函数。后面陆续增加了些功能，有点框架调用的样子。这就涉及到包内的全局变量问题。假设我的包名为mypackage，我想实现一个获取递增序号的功能。
代码1

COUNT <- 1
get_sn <- function(){
	COUNT <- COUNT + 1
	return(COUNT)
}

多次调用mypackage::get_sn()，结果均为2，这应该是COUNT没有被理解为全局变量的缘故。

代码2

COUNT <- 1
get_sn <- function(){
	COUNT <<- COUNT + 1
	return(COUNT)
}

调用mypackage::get_sn()报错。错误为Error in COUNT <<- COUNT + 1 : 无法改变被锁定的联编'COUNT'的值。
我理解为COUNT被定义成了const，是read only的。
而尝试通过直接修改，mypackage::COUNT <- 100也是不行的，错误是Error in mypackage::COUNT <- 1 : 找不到对象'mypackage'。这里我只能理解为可读不可写，与其他语言的namespace使用上还是有些差距。

解决方案

可以通过environment来明确要修改的变量。
代码3

myenv <- new.env()
myenv$COUNT <- 1

get_sn <- function(){
  myenv$COUNT <- myenv$COUNT + 1
  return(myenv$COUNT)
}

多次调用mypackage::get_sn()就可获得递增的数字了。
这里特别要注意的是，mypackage::myenv$COUNT <- 100直接修改也是会报错，找不到对象。