Fixed another bug in try_query

jpquast · Oct 17, 2024 · d4674f0 · d4674f0
1 parent badce14
commit d4674f0
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/try_query.R b/R/try_query.R
@@ -97,7 +97,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")