From c7ba286efdd5c588430380760a7866175e3cddcc Mon Sep 17 00:00:00 2001
From: eblondel <emmanuel.blondel1@gmail.com>
Date: Tue, 6 Feb 2024 20:19:46 +0100
Subject: [PATCH] fix #120

---
 R/OWSHttpRequest.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/OWSHttpRequest.R b/R/OWSHttpRequest.R
index df8a074..7ce7197 100644
--- a/R/OWSHttpRequest.R
+++ b/R/OWSHttpRequest.R
@@ -44,7 +44,7 @@ OWSHttpRequest <- R6Class("OWSHttpRequest",
       req <- url
       if(nzchar(params)){
         if(!endsWith(url,"?")){
-          if(regexpr("\\?", url)>0){
+          if(regexpr("\\?", url)>0 & regexpr("/cas?service=", url, fixed = T)<0){
             req <- paste0(req, "&")
           }else{
             req <- paste0(req, "?")