Increase client sided default API timout to 240s
For long running scripts, it is annoying to realize in the morning
that they failed due to a timeout.
Change-Id: Ib854716c8b76126f2e7c0abdce33fabf88fbd467
diff --git a/R/KorAPConnection.R b/R/KorAPConnection.R
index 243e179..e4a1ed2 100644
--- a/R/KorAPConnection.R
+++ b/R/KorAPConnection.R
@@ -62,7 +62,7 @@
#' @rdname KorAPConnection-class
#' @export
setMethod("initialize", "KorAPConnection",
- function(.Object, KorAPUrl = "https://korap.ids-mannheim.de/", apiVersion = 'v1.0', apiUrl, accessToken = getAccessToken(KorAPUrl), userAgent = "R-KorAP-Client", timeout=110, verbose = FALSE, cache = TRUE) {
+ function(.Object, KorAPUrl = "https://korap.ids-mannheim.de/", apiVersion = 'v1.0', apiUrl, accessToken = getAccessToken(KorAPUrl), userAgent = "R-KorAP-Client", timeout=240, verbose = FALSE, cache = TRUE) {
.Object <- callNextMethod()
m <- regexpr("https?://[^?]+", KorAPUrl, perl = TRUE)
.Object@KorAPUrl <- regmatches(KorAPUrl, m)
diff --git a/man/KorAPConnection-class.Rd b/man/KorAPConnection-class.Rd
index ee18692..75a165e 100644
--- a/man/KorAPConnection-class.Rd
+++ b/man/KorAPConnection-class.Rd
@@ -23,7 +23,7 @@
apiUrl,
accessToken = getAccessToken(KorAPUrl),
userAgent = "R-KorAP-Client",
- timeout = 110,
+ timeout = 240,
verbose = FALSE,
cache = TRUE
)