Fixed another bug in try_query

jpquast · Sep 29, 2024 · 6909b03 · 6909b03
1 parent 356b0b4
commit 6909b03
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/try_query.R b/R/try_query.R
@@ -91,7 +91,7 @@ try_query <-
     options(readr.show_progress = FALSE)
 
     # Check if the content is gzip compressed
-    if (query_result$headers[["content-encoding"]] == "gzip") {
+    if (!is.null(query_result$headers[["content-encoding"]]) && query_result$headers[["content-encoding"]] == "gzip") {
       # Retrieve the content as raw bytes using httr::content
       raw_content <- httr::content(query_result, type = "raw")