Nothing
test_that("shiny.js version was replaced", {
jsFiles <- system.file(
file.path("www", "shared", c("shiny.js", "shiny.min.js")),
package = "shiny"
)
lapply(jsFiles, function(jsFile) {
jsFileContent <- paste(suppressWarnings(readLines(jsFile)), collapse = "\n")
expect_false(grepl("\\{\\{\\sVERSION\\s\\}\\}", jsFileContent))
})
})
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.