Timeout was reached: Resolving timed out after 10000 milliseconds

get.RxCuiViaNdc timeout錯誤
`> RxCuiList<-get.RxCuiViaNdc(data.frame(NDC=unique(ph_drug$NationalDrugCode),
                                         stringsAsFactors = F))
Error in { : 
  task 2 failed - "Timeout was reached: Resolving timed out after 10000 milliseconds"`