The goal of shiny386 is to provide an old school Bootstrap 4 template for Shiny. It is built on top of the Bootstrap 386 HTML template.
You can install the released version of shiny386 from Github with:
pak::pak("RinteRface/shiny386")
Expand
<script data-bslib-card-init>bslib.Card.initializeAllCards();</script>
library(shiny)
library(shiny386)
library(bslib)
library(dplyr)
library(ggplot2)
library(ggExtra)
library(thematic)
thematic_shiny(font = "auto")
penguins_csv <- "https://raw.githubusercontent.com/jcheng5/simplepenguins.R/main/penguins.csv"
df <- readr::read_csv(penguins_csv)
# Find subset of columns that are suitable for scatter plot
df_num <- df |> select(where(is.numeric), -Year)
ui <- page_386(
h1("Penguins App"),
br(),
h3("This app is just amazing..."),
fluidRow(
column(
width = 4,
card_386(
title = "Aesthetics",
status = "warning",
select_input_386("xvar", "X variable", colnames(df_num), selected = "Bill Length (mm)"),
select_input_386("yvar", "Y variable", colnames(df_num), selected = "Bill Depth (mm)"),
checkbox_group_input_386(
"species", "Filter by species",
choices = unique(df$Species),
selected = unique(df$Species)
)
),
card_386(
title = "Other options",
status = "warning",
checkbox_input_386("by_species", "Show species", TRUE),
checkbox_input_386("show_margins", "Show marginal plots", TRUE),
checkbox_input_386("smooth", "Add smoother")
),
button_386("run", "Do plot!", class = "btn-lg btn-block")
),
column(
width = 8,
jumbotron_386(plotOutput("scatter"))
)
)
)
server <- function(input, output, session) {
subsetted <- eventReactive(input$run, {
req(input$species)
df |> filter(Species %in% input$species)
})
output$scatter <- renderPlot(
{
p <- ggplot(subsetted(), aes(.data[[input$xvar]], .data[[input$yvar]])) +
list(
theme(legend.position = "bottom"),
if (input$by_species) aes(color = Species),
geom_point(),
if (input$smooth) geom_smooth()
)
if (input$show_margins) {
margin_type <- if (input$by_species) "density" else "histogram"
p <- ggExtra::ggMarginal(p,
type = margin_type, margins = "both",
size = 8, groupColour = input$by_species, groupFill = input$by_species
)
}
p
},
res = 100
)
}
shinyApp(ui, server)You can play with the demo app below and modify the code.
<iframe class="html-fill-item" src="https://shinylive.io/r/editor/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAdzgCMAnRRASwgGdSoAbbgCgA6EAATCBYdgAs2ATwDMADgBs43ENEM4qIu2EBeYQUFhJpUqnaIA9FYZtyDAGZQCcDAHMWpSQFc6GFiJbezgnFzgAWmoodhgIggYoCCtVMRMzC2tbLSIMBiiYmAwiBndxAEohSoghbhZGKAYZPilZarqGppbpCHllap8WYQAeCOFUKHc4AH1FJUERAkaAE1nlBdFSL244fTSAWRlDFdV1NIAVaV0WXRgjpYZl05FhRj5ytReH1bqIAGs1vNJJpHHtxKZzJYbNQYR4iER3DsMMQYKlxPsSnAKp9RI54Q4wWAAMIrYR4ogOcTqarVITsUIAN1CIzGjh8EAIWxIfDYqB8pFwwiI-L5AuE9PY7ECEHKwhAAF86T0ZABBdB8QaC+kMJkMcpgeUAXSAA" height="700" width="100%" style="border: 1px solid rgba(0,0,0,0.175); border-radius: .375rem;" allowfullscreen="" allow="autoplay" data-external="1"></iframe>
Expand
<script data-bslib-card-init>bslib.Card.initializeAllCards();</script>
This is a basic example which shows you how to solve a common problem:
library(shiny)
library(shiny386)
ui <- page_386(
card_386(
title = "My card",
"This is my card",
br(),
card_link_386(href = "https://www.google.com", "More"),
footer = "Card footer"
)
)
server <- function(input, output, session) {}
shinyApp(ui, server)