adlib_data_response <- function()

in R/ad_data.R [10:29]

• 20 lines of code
• 2 McCabe index (conditional complexity)

adlib_data_response <- function(response) {
  extract_error_message(response)
  cont <- httr::content(response, as = "parsed")
  if ("data" %in% names(cont)) {
    return(structure(
      list(
        date = response[["date"]],
        data = cont[["data"]],
        has_next = !is.null(cont[["paging"]][["next"]]),
        next_page = cont[["paging"]][["next"]],
        fields = strsplit(
          httr::parse_url(response[["url"]])[["query"]][["fields"]], ","
        )[[1]]
      ),
      class = "adlib_data_response"
    ))
  } else {
    stop("Not a valid data response.")
  }
}