Nothing
test_that("test missing header", {
library(httr)
skip_if(!file.exists("../testdata/rate_limit_res.RDS"))
r <- readRDS("../testdata/rate_limit_res.RDS")
expect_false(academictwitteR:::.check_header_rate_limit(r, verbose = FALSE))
crazy_r <- r
crazy_r$headers$`x-rate-limit-remaining` <- "1"
expect_true(academictwitteR:::.check_header_rate_limit(crazy_r, verbose = FALSE))
expect_warning(academictwitteR:::.check_header_rate_limit(crazy_r, verbose = TRUE))
really_crazy_r <- r
really_crazy_r$headers$`x-rate-limit-remaining` <- NULL
expect_false(academictwitteR:::.check_header_rate_limit(really_crazy_r, verbose = FALSE))
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.