fix for blank first argument in the query string

PavlidisLab · Feb 28, 2024 · 6879731 · 6879731
1 parent 1b7e7f6
commit 6879731
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/R/body.R b/R/body.R
@@ -58,8 +58,9 @@ setGemmaPath <- function(path){
     call <- quote(paste0(gemmaPath(), gsub("/((NA)?/)", "/", gsub("\\?[^=]+=NA", "\\?", gsub("&[^=]+=NA", "", glue::glue(endpoint)))))) %>% eval(envir = envWhere)
 
     # remove empty parameters
-    call<- call %>% stringr::str_split('&') %>% 
+    call<- call %>% stringr::str_split('&|\\?') %>% 
         {.[[1]]} %>% {.[!grepl("\\=$",.)]} %>%
+        {c(paste(.[1],.[2],sep = "?"),.[c(-1,-2)])} %>%
         paste0(collapse = '&')
 
     if (!is.null(getOption('gemma.username')) && !is.null(getOption('gemma.password'))){