Как вы объединяете различные html-теги в карусели с помощью slickR?

#r #carousel #htmltools #slickr

Вопрос:

Используя slickR, как вы показываете элементы в htmltools::div в элементе карусели?

Ниже приведен воспроизводимый (пожалуйста, дайте мне знать) пример. Я хотел бы показать таблицу с возможностью реагирования под абзацем «Что?». Но когда я запускаю это, программа просмотра показывает только «Что?», а не таблицу, на которую можно реагировать. Если вы перейдете к другим элементам, будут показаны таблицы, на которые можно реагировать.

 library(slickR) library(reactable) library(htmltools)   sets lt;- 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)