R/parse_response.R

In rPDBapi: A Comprehensive Interface for Accessing the Protein Data Bank

#' Parse API Response
#'
#' This function parses the content of an HTTP response based on the specified format.
#' It supports JSON and plain text formats.
#'
#' @param response An HTTP response object.
#' @param format A string indicating the expected response format ("json" or "text").
#' @return Parsed content from the response.
#' @importFrom httr content
#' @importFrom jsonlite fromJSON
#' @export
parse_response <- function(response, format = "json") {
  parsed_content <- tryCatch(
    {
      if (format == "json") {
        fromJSON(content(response, "text", encoding = "UTF-8"))
      } else if (format == "text") {
        content(response, "text", encoding = "UTF-8")
      } else {
        rpdbapi_abort(
          paste0("Unsupported format for parsing the response: ", format),
          class = "rPDBapi_error_invalid_input",
          function_name = "parse_response",
          format = format
        )
      }
    },
    error = function(e) {
      rpdbapi_rethrow(
        e,
        message_prefix = "Parsing Error: Failed to parse the response. Error: ",
        class = "rPDBapi_error_malformed_response",
        function_name = "parse_response",
        format = format
      )
    }
  )

  return(parsed_content)
}