标签：COUNT get package 笔记 sn 全局变量 mypackage

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直接修改也是会报错，找不到对象。

标签：COUNT,get,package,笔记,sn,全局变量,mypackage
来源： https://blog.csdn.net/kuyu05/article/details/104694288

本站声明： 1. iCode9 技术分享网（下文简称本站）提供的所有内容，仅供技术学习、探讨和分享；
2. 关于本站的所有留言、评论、转载及引用，纯属内容发起人的个人观点，与本站观点和立场无关；
3. 关于本站的所有言论和文字，纯属内容发起人的个人观点，与本站观点和立场无关；
4. 本站文章均是网友提供，不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属；如您发现该文章侵犯了您的权益，可联系我们第一时间进行删除；
5. 本站为非盈利性的个人网站，所有内容不会用来进行牟利，也不会利用任何形式的广告来间接获益，纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。