fix #36 bump timeout to 20 sec

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: proofr
 Title: Client for the PROOF API
-Version: 0.3.0.91
+Version: 0.3.0.96
 Authors@R: 
     person("Scott", "Chamberlain", , "[email protected]", role = c("aut", "cre"),
            comment = c(ORCID = "0000-0003-1444-9135"))

R/onLoad.R

@@ -2,5 +2,5 @@ proofr_env <- new.env() # nocov start
 
 .onLoad <- function(libname, pkgname) {
   # use the same timezone throughout the package
-  proofr_env$timeout_sec <<- 5
+  proofr_env$timeout_sec <<- 20
 } # nocov end

R/status.R

@@ -8,7 +8,7 @@
 #' this function again until you get the server URL
 #' @section Timeout:
 #' If the PROOF API is unavailable, this function will timeout after
-#' 5 seconds. Contact the package maintainer if you get a timeout error.
+#' 20 seconds. Contact the package maintainer if you get a timeout error.
 #' See [proof_timeout()].
 #' @return A list with fields:
 #' - `canJobStart` (logical): can a job to make a Cromwell server be started?

R/timeout.R

@@ -2,10 +2,10 @@
 #'
 #' @export
 #' @param sec (integer/numeric) number of seconds after which
-#' requests will timeout. default: 10 sec (10000 ms)
+#' requests will timeout. default: 20 sec (20000 ms)
 #' @references <https://httr.r-lib.org/reference/timeout.html>
 #' @return nothing, side effect of setting the timeout for requests
-proof_timeout <- function(sec = 10) {
+proof_timeout <- function(sec = 20) {
   assert(sec, c("integer", "numeric"))
   proofr_env$timeout_sec <- sec
 }