Add a check and warning for large queries

Public-Health-Scotland · Sep 26, 2024 · 63c7e78 · 63c7e78
1 parent 750ef0b
commit 63c7e78
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/R/get_resource_sql.R b/R/get_resource_sql.R
@@ -84,6 +84,13 @@ get_resource_sql <- function(sql) {
   # attempt get request
   content <- phs_GET("datastore_search_sql", query)
 
+  if (!is.null(content[["result"]][["records_truncated"]])) {
+    cli::cli_warn(
+      "The data was truncated because your query matched more than the
+      maximum number of rows."
+    )
+  }
+
   # get correct order of columns
   order <- purrr::map_chr(
     content$result$fields,