主页 / coding / 问题 / 79446932
Accepted
sactyr
Asked: 2025-02-18 09:26:37 +0800 CST

将 DT 数据表添加到 slickR 轮播

  • 772

我对在 slickR 的轮播中渲染 DT 数据表感兴趣。我实际的用例是先显示一张图片，然后显示一个表格。下面是我想做的一个简单示例（不过代码会生成一个空的 Shiny 应用程序）：

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

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

server <- function(input, output) {
  
  output$iris_slickr <- renderSlickR({
    
    iris_split <- iris %>% 
      split(f = ~Species) 
    
    slickR(
      map(
        names(iris_split)
        ,~datatable(iris_split[[.x]])
      )
    )
    
  })
  
}

shinyApp(ui = ui, server = server)

在上面的例子中，我希望每个鸢尾花品种都有一个幻灯片。我认为这行不通的原因是因为 DT 有自己的渲染功能，我不确定如何将两者结合起来，renderSlickR以及renderDT这是否可能。我知道我可以简单地使用数据表的分页来实现这一点，但正如提到的，我的用例也会在每个表上方有一个图像，例如鸢尾花品种图像。

1 个回答

  1. Best Answer

    从我对文档的阅读来看，它本身无法呈现任何对象。相反，按照此slickR相关问题中的代码，您可以将每个数据表对象导出为 HTML 文件，然后可以将其作为 包含在轮播中。slickRiframe

    library(shiny)
library(purrr)
library(DT)
library(slickR)

ui <- fluidPage(
  slickROutput("iris_slickr", width = "90%")
)

server <- function(input, output) {
  output$iris_slickr <- renderSlickR({
    iris_split <- iris |>
      split(f = ~Species)

    filenames <- purrr::map_chr(iris_split, \(x) {
      file <- tempfile(fileext = ".html")
      datatable(x) |>
        htmlwidgets::saveWidget(file)
      
      file
    })

    slickR(
      purrr::map_chr(
        filenames,
        \(x) paste0(readLines(x), collapse = "\n")
      ),
      slideType = "iframe",
      height = "500px"
    )
  })
}

shinyApp(ui = ui, server = server)

    在此处输入图片描述

    • 0

相关问题