Nothing
context("get_token_access")
test_that("To try to get token with incorrect code return false", {
code <- "incorrect-code"
config <- get_config()
expect_false(get_token_access(code, config))
})
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.