Nothing
jar <- options(cookie_dir = tempdir())
test_that("setting cookies works", {
expect_equal(default_jar(), tempdir())
expect_error(
add_cookies(cookiefile = system.file("extdata", "cookies.txt",
package = "cookiemonster"),
cookiestring = "test=true; success=yes"),
"not both"
)
expect_error(
add_cookies(),
"either cookie file or string"
)
expect_gte({
add_cookies(cookiefile = system.file("extdata", "cookies.txt",
package = "cookiemonster"))
file.size(file.path(tempdir(), paste0("cookies.rds")))
}, 622)
expect_message({
l <- readLines(system.file("extdata", "cookies.txt",
package = "cookiemonster"))
writeLines(l[5:7], "test.txt")
add_cookies(cookiefile = "test.txt")
unlink("test.txt")
}, "not seem to be a valid cookiefile")
expect_error(add_cookies(cookiestring = "test=true; success=yes"),
"provide a domain")
expect_gte({
add_cookies(cookiestring = "test=true; success=yes", domain = "tests.com")
file.size(file.path(tempdir(), paste0("cookies.rds")))
}, 754)
})
test_that("old cookies are replaced", {
expect_equal(default_jar(), tempdir())
expect_equal({
add_cookies(cookiestring = "test=true", domain = "https://tests.com")
add_cookies(cookiestring = "chococookie=delicious", domain = "tests.com")
get_cookies(domain = "^tests.com")$value
}, "delicious")
})
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.