html - Web ページがビジーかどうかを確認しますか?

Question

サイトから特定の情報を抽出するスクリプトを作成しました。コードは正常に動作しますが、非常に遅いです (関数をコンパイルし、JIT を有効にしました)。遅延が Web ページのトラフィックによるものかどうかを確認するにはどうすればよいですか? どんな助けでもいただければ幸いです

url = "http://www.currys.co.uk/gbuk/computing-accessories/accessories-and-bags/power-       cables/power-cables-adaptors/masterplug-bfg2-mp-4-gang-extension-cable-2m-00852134-pdt.html?    srcid=369&xtor=AL-1&cmpid=aff~!!!sitenamecm!!!~!!!promotypecm!!!~Computing+Accessorie"

getpagedata = function (url, uniq_id)

{
  srcpage = getURLContent(parenturl)
  page = htmlTreeParse(srcpage,useInternalNodes = T,encoding='UTF-8')    
  link = '0' 
  availability = xpathSApply(page, "//span[@class ='available']",xmlValue)

 if (length(availability) > 0 )
 {
   if (length(availability_option) > 0) 
   {   
         availability_option = paste0(toString(str_replace_all(availability_option,"\n|\t","")),",")
   }
availability = paste0("'",availability_option,toString(str_replace_all         (availability,"\n|\t","")),"'")
}

df2 = data.frame(starttime,Sys.time(),store,uniq_id,Avail_Flag,availability,link)
writetofile_c(df2)
free(page)
}

ありがとう、