library(shiny)
library(shiny.semantic)
ui <- semanticPage(
titlePanel("Hello Shiny!"),
sidebar_layout(
sidebar_panel(
sliderInput("obs",
"Number of observations:",
min = 0,
max = 1000,
value = 500),
width = 1
),
main_panel(
plotOutput("distPlot"),
width = 4
),
mirrored = FALSE
)
)
server <- function(input, output) {
output$distPlot <- renderPlot({
hist(rnorm(input$obs))
})
}
shinyApp(ui, server)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.