shinyglass

License: GPL-3

Liquid Glass themes for Shiny. glass_theme() returns a bslib theme with translucent surfaces, backdrop blur, and system typography. Pass it as theme = glass_theme() to fluidPage(), navbarPage(), or other page functions that accept a bslib theme.

Documentation ยท GitHub

Glass dashboard, light Glass dashboard, dark

Quick start

# install.packages("remotes")
remotes::install_github("ericrayanderson/shinyglass")

library(shiny)
library(shinyglass)

ui <- fluidPage(
  theme = glass_theme(),  # or glass_theme(preset = "dark")
  titlePanel("Liquid Glass"),
  sliderInput("n", "Bars", 5, 30, 15),
  plotOutput("plot")
)

server <- function(input, output, session) {
  output$plot <- renderPlot(barplot(seq_len(input$n), col = "#007AFF", border = NA))
}

shinyApp(ui, server)