library(shiny)
library(miniUI)
snippetApp <- function() {
ui <- miniPage(
gadgetTitleBar("Add RStudio snippets"),
miniContentPanel(
textInput("snippetName", "Snippet Name:", "newSnippetname1912"),
textInput("snippetCode", "Snippet Code:", "print(92)")
)
)
server <- function(input, output, session) {
observeEvent(input$done, {
stopApp()
})
}
viewer <- dialogViewer("Add RStudio snippets")
runGadget(ui, server, viewer = viewer)
}
# snippetApp()
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.