diff --git a/tests/testthat/test-shared.R b/tests/testthat/test-shared.R index 4386b40..0f0079b 100644 --- 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 index a9ac16b..010aaed 100644 --- 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 ```