r - 如何使用 slickR 在轮播中组合不同的 html 标签？

Question

使用 slickR，如何在轮播项目中显示 htmltools::div 中的项目？

下面是一个可重现的（请告诉我）示例。我想在“什么？”下方显示可反应表。段落。但是当我运行它时，查看器只显示“什么？” 而不是可反应的表。如果您轮播到其他项目，则会显示可反应的表格。

library(slickR)
library(reactable)
library(htmltools)

  sets <- split(list(
    htmltools::div(
      htmltools::p("What"),
      htmltools::br(),
      reactable(data.frame(
        a = c("a", "b", "c"),
        b = c("1", "2", "3")
      ))
    ),
    reactable(data.frame(
      c = c("x", "y", "z"),
      d = c("out", "here", "bye")
    )),
    reactable(data.frame(
      e = c("puppy", "cat", "zebra"),
      f1 = c("lollipop", "candy", "sugar")
    ))
  ),
  f = rep(c(1, 2, 3), each = 1))
  
  slickR(obj = sets,
         slideType = 'iframe',
         height = 500)