library(shiny)
library(ggplot2)
dataset <- diamonds
shinyUI(pageWithSidebar(
headerPanel("Diamonds Explorer"),
sidebarPanel(
sliderInput("sampleSize", "Sample Size", min = 1, max = nrow(dataset),
value = min(1000, nrow(dataset)), step = 500, round = 0),
selectInput("x", "X", names(dataset)),
selectInput("y", "Y", names(dataset), names(dataset)[[2]]),
selectInput("color", "Color", c("None", names(dataset))),
checkboxInput("jitter", "Jitter"),
checkboxInput("smooth", "Smooth"),
selectInput("facet_row", "Facet Row", c(None = ".", names(dataset))),
selectInput("facet_col", "Facet Column", c(None = ".", names(dataset)))
),
mainPanel(
plotOutput("plot")
)
))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.