From 33e7878892721600a1bab060b2d4d5da1c122198 Mon Sep 17 00:00:00 2001
From: eblondel <emmanuel.blondel1@gmail.com>
Date: Tue, 10 Oct 2023 11:32:29 +0200
Subject: [PATCH] debug #112

---
 R/OWSHttpRequest.R | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/R/OWSHttpRequest.R b/R/OWSHttpRequest.R
index 0dd2f50..1a9603b 100644
--- a/R/OWSHttpRequest.R
+++ b/R/OWSHttpRequest.R
@@ -42,7 +42,15 @@ OWSHttpRequest <- R6Class("OWSHttpRequest",
       namedParams <- c(namedParams, request = request)
       params <- paste(names(namedParams), namedParams, sep = "=", collapse = "&")
       req <- url
-      if(!endsWith(url,"?") && nzchar(params)) req <- paste0(req, "?")
+      if(nzchar(params)){
+        if(!endsWith(url,"?")){
+          if(regexpr("\\?", url)>0){
+            req <- paste0(req, "&")
+          }else{
+            req <- paste0(req, "?")
+          }
+        }
+      }
       if(regexpr("/cas?service=", url, fixed = T) > 0) params <- URLencode(params, reserved = TRUE)
       req <- paste0(req, params)
       self$INFO(sprintf("Fetching %s", req))