Nothing
test_that("cookie banner works", {
cookieBannerCheck <- shinyGovstyle::cookieBanner("The best thing")
cookieCheckChild <- cookieBannerCheck$children[[1]]
expect_equal(
length(cookieCheckChild$children[[2]]),
3
)
expect_identical(
cookieCheckChild$children[[1]]$children[[1]]$children[[1]]$children[[1]],
"Cookies on The best thing"
)
expect_identical(
cookieBannerCheck$children[[2]]$attribs[3]$class,
"shinyjs-hide"
)
expect_identical(
cookieBannerCheck$children[[3]]$attribs[3]$class,
"shinyjs-hide"
)
})
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.