从twitteR中的用户列表将userTimeline从twitteR包脚本化为data mine，说明列表中缺少的用户

我试图编译一个特定Twitter用户子集的用户时间线语料库。我的问题是，在现有代码（如下所示）中，当用户的帐户被挂起或删除时，代码会中断，并给出所提供的输出和错误（如下所示）

   ## ORIGINAL ##
   for (user in users){

  # Download user's timeline from Twitter
  tweets <- userTimeline(user)

  # Extract tweets
  tweets <- unlist( lapply(tweets, function(t) t$getText() ) )

  # Save tweets to file
  write.csv(tweets, file=paste(user, ".csv", sep=""), row.names=F)
  #Sys.sleep(sleepTime)
}

##原件##
for（用户中的用户）{
#从Twitter下载用户的时间线
tweets您可以捕获异常。请参阅
？try
或
？tryCatch
。例如：

 tweets <- try(userTimeline(user),silent=TRUE)
 if(inherits(tweets ,'try-error')) 
   return(NULL)
 else{
    ## process normally here  
 }

tweets
 tweets <- try(userTimeline(user),silent=TRUE)
 if(inherits(tweets ,'try-error')) 
   return(NULL)
 else{
    ## process normally here  
 }