if(interactive()){
library(shiny)
library(bs4Dash)
shinyApp(
ui = dashboardPage(
header = dashboardHeader(),
sidebar = dashboardSidebar(),
body = dashboardBody(
carousel(
id = "mycarousel",
carouselItem(
caption = "Item 1",
tags$img(src = "https://via.placeholder.com/500")
),
carouselItem(
caption = "Item 2",
tags$img(src = "https://via.placeholder.com/500")
)
)
),
title = "Carousel"
),
server = function(input, output) { }
)
}
Run the code above in your browser using DataLab