getrpkg: increase the timeout: there's a 45MB R package!

git-svn-id: svn://svn.r-forge.r-project.org/svnroot/cran2deb@109 edb9625f-4e0d-4859-8d74-9fd3b1da38cb

diff --git a/pkg/trunk/R/getrpkg.R b/pkg/trunk/R/getrpkg.R
index b1c5719d08d2bbc28e1238f4d8ff2d584b6d708b..a0d6bc97b60cf8db84eb3accb2af395c645a9a05 100644 (file)
--- a/pkg/trunk/R/getrpkg.R
+++ b/pkg/trunk/R/getrpkg.R
@@ -33,7 +33,7 @@ prepare_pkg <- function(dir, pkgname) {
     url <- paste(available[pkgname,'Repository'], fn, sep='/')
     archive <- file.path(dir, fn)
     # don't log the output -- we don't care!
-    ret <- system(paste('curl','-o',shQuote(archive),'-m 60 --retry 5',shQuote(url)))
+    ret <- system(paste('curl','-o',shQuote(archive),'-m 720 --retry 5',shQuote(url)))
     if (ret != 0) {
         fail('failed to download',url)
     }