saveVideo仅打印出视频中的第一个图像

Question

我正在尝试制作一个使用saveVideo从循环输出的绘图视频。但是，此时输出视频仅显示循环运行次数的第一个图像（在我的示例代码中为40秒）。可能是非常明显的事情，但有谁知道如何解决这个问题？ 示例代码：

create_photos <- function(){
  for (i in 1:40){
    plot(c(0, 1), c(0, 1), ann = F, bty = 'n', type = 'n', xaxt = 'n', yaxt = 'n')
    text(x = 0.5, y = 0.5, paste(i))
  }
}
saveVideo(create_photos(), video.name = 'animation.mp4')