allow sample urls in retrieve_linked_data

Author: mustberuss

R/search-pv.R

@@ -38,13 +38,14 @@ set_sort_param <- function(before) {
 
 #' @noRd
 get_get_url <- function(query, base_url, arg_list) {
-  j <- paste0(
+
+  j <- ifelse(is.null(arg_list), base_url, paste0(
     base_url,
     "?q=", utils::URLencode(query, reserved = TRUE),
     "&f=", tojson_2(arg_list$fields),
     "&s=", set_sort_param(arg_list$sort),
     "&o=", tojson_2(arg_list$opts, auto_unbox = TRUE)
-  )
+  ))
 
   utils::URLencode(j)
 }
@@ -403,7 +404,8 @@ retrieve_linked_data <- function(url,
   }
 
   # Go through one_request, which handles resend on throttle errors
-  # The API doesn't seem to mind ?q=&f=&o=&s= appended to HATEOAS URLs
-  res <- one_request("GET", "", url, list(), api_key, ...)
+  # The NULL arg_list supresses the ?q=&f=&o=&s= that was appended to the url
+  # and lets example urls be passed
+  res <- one_request("GET", "", url, NULL, api_key, ...)
   process_resp(res)
 }