R/callbacks.R

In peterhurford/vcr: Record httr calls and play back the tapes

#' A callback for writing the output as JSON content.
#'
#' @param r. The raw response from the httr call.
#' @export
write_json_callback <- function(r) {
  jsonlite::prettify(httr::content(r, as = "text", encoding = "UTF-8"))
}