在执行程序中，
for( i in 1:1000){
  result_jd_one<-NULL
  rawjsonp=web2 #循环
  purejson= regmatches(rawjsonp, regexpr('(?<=^fetchJSON_comment98vv2406\\().*(?=\\);$)',rawjsonp,perl=T))
如果 parsed=fromJSON(purejson) return( error )则 进行下一个循环web2[i+1] 否则   parsed=fromJSON(purejson)
  nickname<-parsed$comments$nickname
  userLevelName<-parsed$comments$userLevelName


........


如上面的灰色区域怎么修改