Как использовать несколько SlickROutput в блестящей приборной панели

Question

Я пытаюсь создать веб-страницу, где мне нужно показывать несколько слайд-шоу. Я нашел способ использования пакета slickR в R для отображения слайд-шоу, но я не могу показать несколько. Вот код, где я пытаюсь сделать два slickR, я не знаю, что я делаю неправильно. Помогите, пожалуйста, я только начинающий.

Код:

library(shiny)
library(slickR)

ui <- fluidPage(
     column(12,column(6, slickROutput("slickr", width="200px")),
     column(6,slickROutput("slickr1",width = "200px")))
)

server <- function(input, output) {
  output$slickr <- renderSlickR({
    imgs <- list.files("D:/Projects/Rdashboards/Images/1/", pattern=".png", full.names = TRUE)
    slick <- slickR(imgs)
    slick + settings(autoplay = TRUE,autoplaySpeed = 1000)
  })

  output$slickr1 <- renderSlickR({
    imgs1 <- list.files("D:/Projects/Rdashboards/Images/2/", pattern=".png", full.names = TRUE)
    slick1 <- slickR(imgs1)
    slick1 + settings(autoplay = TRUE,autoplaySpeed = 1000)
  }) 
}

shinyApp(ui = ui, server = server)

Answer 1

Вы можете просто присвоить разные названия слайдов каждому выходу, например:

  output$slickr <- renderSlickR({
    imgs <- list.files("D:/Projects/Rdashboards/Images/1/", pattern=".png", full.names = TRUE)
    slick <- slickR(imgs, slideID = "sld1")
    slick + settings(autoplay = TRUE,autoplaySpeed = 1000)
  })

  output$slickr1 <- renderSlickR({
    imgs1 <- list.files("D:/Projects/Rdashboards/Images/2/", pattern=".png", full.names = TRUE)
    slick1 <- slickR(imgs1, slideID = "sld2")
    slick1 + settings(autoplay = TRUE,autoplaySpeed = 1000)
  })