Skip to content

Instantly share code, notes, and snippets.

@mdsumner
Created October 28, 2025 03:15
Show Gist options
  • Save mdsumner/3d4f9973d0cb9f791bb0afc432db7f59 to your computer and use it in GitHub Desktop.
Save mdsumner/3d4f9973d0cb9f791bb0afc432db7f59 to your computer and use it in GitHub Desktop.
library(shiny)
library(shinyglide)
ui <- fluidPage(
glide(
screen(
h2("Image 1"),
img(src = "image1.png", width = "100%")
),
screen(
h2("Image 2"),
img(src = "image2.png", width = "100%")
),
screen(
h2("Image 3"),
img(src = "image3.png", width = "100%")
)
)
)
server <- function(input, output, session) {
# Server logic if needed
}
shinyApp(ui, server)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment