如何在slickR轮播组件中嵌入DT数据表格？

希望在Shiny应用的slickR轮播组件中，每个幻灯片同时展示一张图片和一个DT数据表格（按鸢尾花种类拆分），但直接将datatable()对象传入slickR()后应用显示空白，推测是因为DT需要独立的渲染函数，不确定如何结合renderSlickR与renderDT。

问题核心是slickR需接收完整的HTML内容或可渲染的htmlwidget对象，直接传入datatable()生成的对象无法被正确解析。需将每个幻灯片的图片+表格组合成完整HTML容器后，再传入slickR。以下是可行实现代码：

首先确保对应鸢尾花种类的图片文件（如setosa.jpg、versicolor.jpg、virginica.jpg）放置在Shiny应用的www目录下。

library(shiny)
library(dplyr)
library(purrr)
library(DT)
library(slickR)
library(htmltools)

ui <- fluidPage(
  slickROutput("iris_slickr")
)

server <- function(input, output) {
  
  output$iris_slickr <- renderSlickR({
    # 按物种拆分iris数据集
    iris_split <- iris %>% split(f = ~Species)
    
    # 构建每个幻灯片的内容：图片 + DT表格
    slides <- map(names(iris_split), function(species) {
      div(
        style = "text-align: center; padding: 20px;",
        # 插入对应物种的图片
        img(src = paste0(species, ".jpg"), width = "300px"),
        br(), br(),
        # 生成对应物种的DT表格（保留交互性）
        datatable(
          iris_split[[species]],
          options = list(pageLength = 10, dom = "t")
        )
      )
    })
    
    # 初始化slickR轮播并配置参数
    slickR(slides) %>%
      settings(
        dots = TRUE,
        infinite = TRUE,
        speed = 500,
        slidesToShow = 1,
        slidesToScroll = 1
      )
  })
  
}

shinyApp(ui = ui, server = server)

• 使用htmltools::div将图片和表格包裹为统一的幻灯片容器，保证布局规整。
• datatable()生成的是htmlwidget对象，可直接作为子元素放入div，slickR能正确处理这类对象的渲染，DT的交互功能（排序、筛选等）不受影响。

内容的提问来源于stack exchange，提问作者sactyr