fix rate limit header testing check skip

openaq · Feb 1, 2025 · 5eb54c5 · 5eb54c5
1 parent 3501e76
commit 5eb54c5
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 5 deletions.
diff --git a/tests/testthat/test-shared.R b/tests/testthat/test-shared.R
@@ -503,8 +503,11 @@ test_that("add_headers correctly adds headers", {
   )
   results <- list(a = "b")
   results <- add_headers(results, res)
-  expect_equal(attr(results, "x_ratelimit_used"), 42)
-  expect_equal(attr(results, "x_ratelimit_reset"), 43)
-  expect_equal(attr(results, "x_ratelimit_limit"), 44)
-  expect_equal(attr(results, "x_ratelimit_remaining"), 45)
+  headers <- attr(results, "headers")
+  print("HEADERS")
+  print(headers)
+  expect_equal(headers[["x_ratelimit_used"]], 42)
+  expect_equal(headers[["x_ratelimit_reset"]], 43)
+  expect_equal(headers[["x_ratelimit_limit"]], 44)
+  expect_equal(headers[["x_ratelimit_remaining"]], 45)
 })
diff --git a/vignettes/openaq.Rmd b/vignettes/openaq.Rmd
@@ -82,7 +82,7 @@ locations <- list_locations(
   providers_id = 166
 )
 headers <- attr(locations, "headers")
-print(headers$x_ratelimit_remaining)
+print(headers[["x_ratelimit_remaining"]])
 
 # > 59
 ```