R/mock_httr_response.R

In robertzk/testthatsomemore: A mocking, stubbing, and file testing framework extending testthat

#' Mocks an httr response
#'
#' @param status_code integer.
#' @param content list. 
#' @param type character. json or text
#' @return a response object.
#' @export
#' @examples
#' mock_httr_response(200L, list(data = "it works!"), "json")
mock_httr_response <- function(status_code, content, type) {
  type <- match.arg(type, c("json", "text"))

  if (identical(type, "json")) {
    if (is.list(content)) {
      content <- jsonlite::toJSON(content, auto_unbox = TRUE, digits = 10)
    }
    content_type <- "application/json"
  } else {
    content_type <- "text"
  } 

  getFromNamespace("response", "httr")(
    status_code = status_code,
    content     = charToRaw(content),
    headers     = list(`Content-Type` = content_type) 
  )
}