Merge pull request #37 from getwilds/dev

proofr v0.4.0 Updates

DESCRIPTION

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

NEWS.md

@@ -1,3 +1,7 @@
+# proofr v0.4.0
+
+* Bumping timeout from 5 seconds to 20 seconds (@sckott in [direct commit](https://github.com/getwilds/proofr/commit/cbe9062fd73e61992b46035e7ac2241cd8de2541))
+
 # proofr v0.3.0
 
 * Swapping `httr` for `httr2` (@sckott in [#25](https://github.com/getwilds/proofr/pull/25))

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
 }