R中的source（）内的sink（）无法正常工作

Question

我有以下代码：

source("file.R")

和file.R包括：

tab<-table(variable)
sink("variable.txt")
tab
sink()

但是，variable.txt文件为空。 知道为什么吗？我在Mac OS X El Capitan（版本10.11.6）上使用RStudio版本0.99.902和R版本3.3.1。

我的一位同事告诉我，这段代码在Windows下适合他。

任何帮助表示赞赏。 最好的问候！