fix #120

eblondel · Feb 6, 2024 · c7ba286 · c7ba286
1 parent ca57aba
commit c7ba286
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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, "?")