A.r

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)