R/verify_mime_type.R

In irudnyts/openai: R Wrapper for OpenAI API

verify_mime_type <- function(result) {

    if (httr::http_type(result) != "application/json") {
        paste(
            "OpenAI API probably has been changed. If you see this, please",
            "rise an issue at: https://github.com/irudnyts/openai/issues"
        ) %>%
            stop()
    }

}