求助大神，在shiny里面如何实现累加的功能以及invalidateLater部分控制，详见内

请问各位大神，怎么在shiny里面实现类似累加的过程，我才疏学浅试了多种方法都实现不了。
就比如说r语言里面简单的a =0;for(i in 1:10) a<- a+1，我在shiny的server里都不知道怎么用reactive写，总不能写成a()<-a()+1吧
更具体一些，怎么才能实现比如说在UI里显示p，p每过三秒加1，这个功能。（主要是不知道p = p+1这个语法，当p是一个reactive对象的时候怎么写）
另外，invalidateLater（3000，session）这个每过3000毫秒就执行一遍语句，请问怎么选定只有server函数里的部分语句才被定时重复执行而不是所有的呢？是靠session来控制的么？谢谢大神们啦~如果悬赏不够的话可以再加的，跪求大神们帮帮忙