KPI dashboard
A Shiny dashboard with KPI value boxes, sidebar filters, a chart and a top-5 table, built with bslib on R’s airquality data. Free app.R to copy, edit and run.
Interactive histogram in R Shiny: the Old Faithful example
The classic first Shiny app, rebuilt with bslib: a slider and a variable picker drive a histogram of the Old Faithful geyser data. Free app.R to copy and run.
About this template
The app most people meet first when they learn Shiny, in a modern bslib layout. A slider sets the number of bins and a drop-down picks the variable, and the histogram redraws as you change them.
It is the smallest complete example of Shiny’s reactivity: two inputs, one output and a few lines of server code. A good template for a single chart with a couple of controls.
What's inside
- A
page_sidebar()layout with inputs in the sidebar - A
sliderInput()and aselectInput() - Two value boxes in a
layout_columns()grid - A histogram in a full-screen card, drawn with
renderPlot()
The complete app.R
Download# Generated by DropToApp
library(shiny)
library(bslib)
ui <- page_sidebar(
title = "Old Faithful Geyser Data",
sidebar = sidebar(
title = "Controls",
sliderInput("bins", "Number of bins:", min = 1, max = 50, value = 30),
selectInput(
"var",
"Variable",
choices = c("waiting", "eruptions"),
selected = "waiting"
)
),
layout_columns(
value_box(
title = "Eruptions recorded",
value = "272",
theme = "primary"
),
value_box(
title = "Mean waiting time",
value = "70.9 min",
theme = "success"
)
),
card(
full_screen = TRUE,
card_header("Histogram"),
plotOutput("distPlot")
)
)
server <- function(input, output, session) {
# Inputs: input$bins, input$var
output$distPlot <- renderPlot({
x <- faithful[[input$var]]
bins <- seq(min(x), max(x), length.out = input$bins + 1)
hist(x, breaks = bins, col = "#007bc2", border = "white",
xlab = input$var, main = NULL)
})
}
shinyApp(ui, server)
How to run it
- In your browser: run it with shinylive. R runs on your computer with webR; the first start downloads R and the packages, which can take a minute.
- In R or RStudio: save the code as
app.R, install the packages once withinstall.packages(c("shiny", "bslib")), then runshiny::runApp()in the folder with the file. - In DropToApp: open the template in the editor to change the layout by drag and drop or edit the code, and export your own
app.R.
More Shiny templates
Data explorer
Pick a dataset and two columns to get a scatter plot, a searchable DT table and a summary, with axis choices that update per dataset. Free R Shiny template.
Feedback form
A feedback form in R Shiny: text, choice and rating inputs, a conditional field, validation, a live table of responses and a CSV download. Free app.R.
Multi-page app
A Shiny app with several pages in a navigation bar: an overview with value boxes and an accordion, an interactive plotly chart and a DT data table.
CSV upload and explorer
Upload a CSV file, choose the separator, and see its rows, columns, a searchable table and a summary. Download the data again as CSV. Free Shiny app template.