为什么使用sink函数保存到文件返回空文件

Question

我尝试使用sink（）函数将屏幕文本保存到文件中。文件已创建但内部没有任何数据。我做错了什么？ 这是我的玩具代码：

sink("sink3.txt")
df <- read.table(text = " color birds    wolfs     
                  red           9         7 
                 red           8         4 
                 red           2         8 
                 red           2         3 
                 black         8         3 
                 black         1         2 
                 black         7         16 
                 black         1         5 
                 black         17        7 
                 black         8         7 
                 black         2         7 
                 green         20        3 
                 green         6         3 
                 green         1         1 
                 green         3         11 
                 green         30         1  ",header = TRUE)
lm<-lm(birds ~ color + wolfs , data = df)
summary(lm)
sink()