用R实时绘制推文

Question

我试图顺利更新Twitter时间线图，但是我无法通过twitteR包实现这一点。我真的很感激这个问题的任何帮助。以下代码的图表不会像this one does一样顺利更新。

library(twitteR)

df <- data.frame(time=1:n,y=runif(n))
window <- 1 

for(i in 1:10) {
              flush.console()
              ts_plot(data.frame(stream_tweets(q = q, timeout = streamtime)),
                      by = "secs", xlim = c(i,i+window))
              Sys.sleep(.09)
            }