User interacts with UI inputs (click a button, enter text, select an option, etc.)
+
The server handles input changes and modifies the output value
+
The server updates the UI output
+
+
+
+
Minimal Shiny app
+
+
+
+
## User interface ----
+
+ui <-fluidPage(
+
+# Application title
+titlePanel("Old Faithful Geyser Data"),
+
+# Sidebar with a slider input for number of bins
+sidebarLayout(
+sidebarPanel(
+sliderInput("bins",
+"Number of bins:",
+min =1,
+max =50,
+value =30
+ )
+ ),
+
+# Show a plot of the generated distribution
+mainPanel(
+plotOutput("distPlot")
+ )
+ )
+)
+
+
+
+
## Server logic ----
+
+server <-function(input, output) {
+
+ output$distPlot <-renderPlot({
+
+# Generate bins based on input$bins
+ x <- faithful[, 2]
+ bins <-seq(min(x), max(x), length.out = input$bins +1)
+
+# Draw the histogram with the specified number of bins
+hist(x, breaks = bins, col ='darkgray', border ='white',
+xlab ='Waiting time to next eruption (in mins)',
+main ='Histogram of waiting times')
+ })
+}
+
+
+
+
## Create the application ----
+
+shinyApp(ui = ui, server = server)
+
+
+
+
+
RStudio IDE: New Project > New Directory > Shiny Application
