- if(!filterListIsPrimitive)
- filterList <- paste0("[", filterList, "]")
-
- filter <- c(attributeAndOperator, filterList)
-
- queryParameter <- paste(filter, collapse = ",+")
- queryParameter <- paste0("[", queryParameter, "]")
-
- })
-
- filters <- paste(filters, collapse = ",+")
- filters <- paste0("[", filters, "]")
-
- encodedQuery <- URLencode(filters, reserved = T, repeated = T)
-
- #Todo(Fudo): This is a hack for now. Find a proper solution.
- encodedQuery <- stringr::str_replace_all(encodedQuery, "%2B", "+")
-
- finalQuery <- c(finalQuery, paste0("filters=", encodedQuery))
+ if(length(query) > 0)
+ {
+ query <- paste0(names(query), "=", query, collapse = "&")