Nothing
skip_on_cran()
took <- function(x) round(system.time(x)[[3]], 1)
test_that("ncbi_rate_limit_pause", {
taxize_options(quiet=TRUE) # reset
# key is missing
expect_error(ncbi_rate_limit_pause(), "missing")
# ncbi_sleep NOT set, key IS NULL: should be around 0.3
expect_equal(took(ncbi_rate_limit_pause(NULL)), 0.3)
# ncbi_sleep NOT set, key NOT NULL: should be around 0.1
expect_equal(took(ncbi_rate_limit_pause("foobar")), 0.1)
# ncbi_sleep IS set, key IS NULL: should be around 0.3
taxize_options(ncbi_sleep = 0.6)
expect_equal(took(ncbi_rate_limit_pause(NULL)), 0.6)
# ncbi_sleep IS set, key NOT NULL: should be around 0.1
taxize_options(ncbi_sleep = 0.7)
expect_equal(took(ncbi_rate_limit_pause("foobar")), 0.7)
})
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.