improve error message

#43
inbo · Jul 25, 2024 · f5c592e · f5c592e
1 parent 55434db
commit f5c592e
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/R/wfs_intersect.R b/R/wfs_intersect.R
@@ -126,7 +126,8 @@ wfs_intersect <- function(df,
     response <- httr::GET(url, query = query)
     # Check if the request was successful
     if (httr::http_type(response) != "text/csv") {
-      stop("Failed to get data from WFS. Status code: ", httr::status_code(response))
+      stop("Failed to get data from WFS. Status code: ", httr::status_code(response),
+           "http_type: ", httr::http_type(response), " expects text/csv")
     }
 
     # Parse the result