'application/problem+json' works with last_response_json()

cgiachalis · cgiachalis · commit aa6e81e8e3e8 · 2026-01-14T11:20:36.000+02:00
closes #782
diff --git a/R/last.R b/R/last.R
@@ -61,7 +61,9 @@ last_response_json <- function(pretty = TRUE) {
   if (is.null(resp)) {
     cli::cli_abort("No request has been made successfully yet.")
   }
-  if (!identical(resp_content_type(resp), "application/json")) {
+  content_type <- resp_content_type(resp)
+  if (!(identical(content_type, "application/json") ||
+      identical(content_type, "application/problem+json"))) {
     cli::cli_abort("Last response doesn't have a JSON body.")
   }
   httr2_json(resp_body_string(resp), pretty = pretty)

Original file line number	Diff line number	Diff line change
`@@ -61,7 +61,9 @@ last_response_json <- function(pretty = TRUE) {`
`61`	`61`	`if (is.null(resp)) {`
`62`	`62`	`cli::cli_abort("No request has been made successfully yet.")`
`63`	`63`	`}`
`64`		`- if (!identical(resp_content_type(resp), "application/json")) {`
	`64`	`+ content_type <- resp_content_type(resp)`
	`65`	`+ if (!(identical(content_type, "application/json") \|\|`
	`66`	`+ identical(content_type, "application/problem+json"))) {`
`65`	`67`	`cli::cli_abort("Last response doesn't have a JSON body.")`
`66`	`68`	`}`
`67`	`69`	`httr2_json(resp_body_string(resp), pretty = pretty)`