carousel <- 'carousel(
  id = "mycarousel",
  carouselItem(
    caption = "Item 1",
    tags$img(src = "http://placehold.it/900x500/3c8dbc/ffffff&text=I+Love+Bootstrap")
  ),
  carouselItem(
    caption = "Item 2",
    tags$img(src = "http://placehold.it/900x500/39CCCC/ffffff&text=I+Love+Bootstrap")
  )
)'