git-svn-id: file:///home/git/hedgehog.fhcrc.org/bioconductor/trunk/madman/Rpacks/annotate@106537 bc3139a8-67e5-0310-9ffc-ced21a209358
... | ... |
@@ -35,7 +35,7 @@ |
35 | 35 |
start <- Sys.time() |
36 | 36 |
end <- Sys.time() + timeout |
37 | 37 |
repeat { |
38 |
- dt <- as.double(end - Sys.time(), units="secs") |
|
38 |
+ dt <- max(1, as.double(end - Sys.time(), units="secs")) |
|
39 | 39 |
Sys.sleep(min(rtoe, dt)) |
40 | 40 |
result <- tryCatch({ |
41 | 41 |
xmlParse(url, error = xmlErrorCumulator(immediate=FALSE)) |