\dontrun{
createRappProject(id = "test", path = tempdir())
path_app <- file.path(tempdir(), "test")
isRapp(path = path_app)
## Carefull!
unlink(file.path(path_app, "shiny"), recursive = TRUE)
isRapp(path = path_app)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.