R/search_ddh.R

In tonyfujs/ddhconnect:

#" search_ddh
#"
#" Search DDH using the search_api service
#"
#" @param query character: full text query
#" @param root_url character: API root URL
#" @param credentials list: API authentication credentials
#"
#" @return list
#"

search_ddh <- function(query = "limit=20&fields=[,nid,uuid,title,]&filter[field_wbddh_data_type]=294",
                       root_url = dkanr::get_url(),
                       credentials = list(cookie = dkanr::get_cookie(),
                                          token = dkanr::get_token())) {

  cookie <- credentials$cookie
  token <- credentials$token

  # Build url
  path <- "search-service/search_api/datasets"
  url <- httr::modify_url(root_url, path = path, query = query)
  # Send request
  out <- httr::GET(url = url,
                    httr::add_headers(.headers = c("Content-Type" = "application/json",
                                                   "charset" = "utf-8",
                                                   "Cookie" =  cookie,
                                                   "X-CSRF-Token" = token)),
                    encode = "json")

  httr::warn_for_status(out)

  out <- httr::content(out)

  return(out)
}