Nothing
# This script mocks a real R script containing source code.
ui <- shiny::fluidPage(
shiny::titlePanel(tr$translate("Hello Shiny!")),
# Sidebar layout with input and output definitions.
shiny::sidebarLayout(
# Sidebar panel for inputs.
shiny::sidebarPanel(
# Input: Slider for the number of bins.
shiny::sliderInput(
inputId = "bins",
label = `tr`$translate("Number of bins:"),
min = 1L,
max = 50L,
value = 30L)
),
# Main panel for displaying outputs.
shiny::mainPanel(
# Output: histogram.
shiny::plotOutput(outputId = "distPlot")
)
)
)
server <- function(input, output) {
# Histogram of the Old Faithful Geyser Data.
# This expression that generates a histogram is wrapped
# in a call to shiny::renderPlot() to indicate that:
# 1. it is "reactive" and therefore should be automatically
# re-executed when inputs (input$bins) change, and
# 2. its output type is a plot.
output$distPlot <- shiny::renderPlot({
x <- faithful$waiting
bins <- seq(min(x), max(x), length.out = input$bins + 1L)
graphics::hist(x,
breaks = bins,
col = "#75AADB",
border = "white",
xlab = tr$`translate`("Waiting time to next eruption (in mins)"),
main = tr$"translate"("Histogram of waiting times"))
})
}
shiny::shinyApp(ui = ui, server = server)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.