Nothing
context("Testing retry function")
test_that("Check if retry_api is working as intended",{
skip_if_no_boto()
skip_if_no_env()
con <- dbConnect(athena())
# create a function that is designed to fail so many times
fail_env <- new.env()
fail_env$i <- 1
# two made up boto clients followed by s3
s3_obj <- c("copy","ah","copy_object")
fail_function <- function(i, j){
if (i > j) i <- 1
result <- (i == j)
fail_env$i <- i + 1
con@ptr$S3[[s3_obj[i]]]
return(TRUE)
}
# this function will fail twice before succeeding
expect_true(retry_api_call(fail_function(fail_env$i , 3)))
# stop RAthena retrying and expect error
RAthena_options(retry = 0)
expect_error(retry_api_call(fail_function(fail_env$i, 3)))
expect_error(RAthena_options(retry = - 10))
expect_warning(RAthena_options(retry_quiet = "blah"))
expect_error(RAthena_options(verbose = "blah"))
})
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.