R/utils-query-construct.R

In evanodell/cqcr: Access 'Care Quality Commission' Data

## Query construction function to reduce code-reuse
cqc_query_construction <- function(query) {
  partner_code <- getOption("cqc.partner.code")

  if (is.null(partner_code)) {
    message("CQC Partner Code not set.")
  } else if (!grepl("&", query)) {
    query <- paste0(query, "?")
  }

  query2 <- paste0(
    baseurl, query, partner_code
  )

  query2 <- gsub("?&partnerCode=", "?partnerCode=", query2, fixed = TRUE)

  x <- httr::GET(query2)

  if (httr::status_code(x) != "200") {
    stop(paste(
      "Request returned error code:",
      httr::status_code(x)
    ), call. = FALSE)
  }

  suppressMessages(cont <- jsonlite::fromJSON(httr::content(x, "text")))

  cont
}