R如何将变量传递给tapply

Question

现在我的代码如下：

common_timestamps = NULL
tapply(data$timestamps, data$date, 

     function(x, common_timestamps ) { 
          if(length(common_timestamps ) == 0) {
            common_timestamps = x 
          } else {
            date_time = intersect(common_timestamps, x)
          }
          return(common_timestamps)
       }, 
      common_timestamps
)

我想从上面的代码中获取公共时间戳。我发现每次循环时，common_timestamp都为null，并且它没有返回common_timestamp。代码有什么问题？我认为我关于传球的概念 变量到R语言的函数可能是正确的。

你能纠正我的错误并解释我的错误吗？

非常感谢你的帮助。