insertShinyDashTemplate <- function(){
template <- paste0("
# SETUP -------------------------------------------------------------------------------------------
library(shiny)
library(shinydashboard)
# UI ---------
# +--- Header ---------
header <- dashboardHeader()
# +--- Sidebar ---------
sidebar <- dashboardSidebar()
# +--- Body ---------
body <- dashboardBody()
# +--- Create UI ---------
ui <- dashboardPage(header, sidebar, body)
# SERVER ---------
server <- function(input, output) {
}
# RUN ---------
shinyApp(ui, server)
")
rstudioapi::insertText(template)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.