library(shiny)
library(SET)
library(purrple)
page <- purrplePage(fluidPage)
shinyUI(page(
theme = "SET.css",
tags$head(
tags$script(src="SET.js")
),
headerPanel("SET"),
sidebarPanel(
actionButton("action", label = "SET !"),
textOutput("sel_cards")
),
mainPanel(
htmlOutput('cards')
)
))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.