使用R的bsplus、Shiny和JavaScript停止旋转木马的自动播放

library(shiny)
library(bsplus)

ui <- fluidPage(
  carousel(
    id = "myCarousel",
    carouselItem(
      img(src = "image1.jpg"),
      caption = "Image 1"
    ),
    carouselItem(
      img(src = "image2.jpg"),
      caption = "Image 2"
    ),
    carouselItem(
      img(src = "image3.jpg"),
      caption = "Image 3"
    )
  )
)

server <- function(input, output) {
  # 旋转木马的自动播放
  observe({
    carouselAutoPlay("myCarousel", interval = 2000)
  })
}

shinyApp(ui, server)

tags$script("
  $(document).ready(function() {
    $('#myCarousel').carousel('pause');
  });
")