Skip to content

Instantly share code, notes, and snippets.

@joek13

joek13/app.R

Last active January 12, 2021 16:38
Show Gist options
  • Save joek13/aecc77f94c01136c246ee71d5f8fe66e to your computer and use it in GitHub Desktop.
Save joek13/aecc77f94c01136c246ee71d5f8fe66e to your computer and use it in GitHub Desktop.
Download ZIP
Raw
app.R
library(shiny)
ui <- fluidPage(
numericInput(inputId = "n", "Sample size", value = 25),
plotOutput(outputId="hist")
)
server <- function (input, output) {
output$hist <- renderPlot ({hist(rnorm(input$n))})
}
shinyApp(ui = ui, server = server)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment