Properly parse error messages

aleksanderbl29 · aleksanderbl29 · commit 8cb79e5be49c · 2024-11-28T09:04:02.000+01:00
This should catch most errors with the old config
diff --git a/R/dst_get_data.R b/R/dst_get_data.R
@@ -80,7 +80,7 @@ dst_get_data <- function(table,
 
   # Make sure the returned status is OK
   if (httr::status_code(dst_data) != 200) {
-    stop(httr::content(dst_data, as = "text", encoding = "UTF-8")$message)
+    stop(httr::content(dst_data, encoding = "UTF-8")$message)
   }
 
   # Get the content

Original file line number	Diff line number	Diff line change
`@@ -80,7 +80,7 @@ dst_get_data <- function(table,`
`80`	`80`
`81`	`81`	`# Make sure the returned status is OK`
`82`	`82`	`if (httr::status_code(dst_data) != 200) {`
`83`		`- stop(httr::content(dst_data, as = "text", encoding = "UTF-8")$message)`
	`83`	`+ stop(httr::content(dst_data, encoding = "UTF-8")$message)`
`84`	`84`	`}`
`85`	`85`
`86`	`86`	`# Get the content`