时间戳

首页 > 解决方案 > 为什么图标不显示在 Shiny 应用程序的 DT::datatable 中？

r - 为什么图标不显示在 Shiny 应用程序的 DT::datatable 中？

问题描述

DT::datatable即使我已经转义了 HTML，我在 Shiny 应用程序的列中显示带有迷你图的图标时遇到了一些问题。

编辑：删除了第二个问题。

library(shiny)
library(dplyr)

ui <- fluidPage(

  htmlwidgets::getDependency('sparkline'),

  DT::dataTableOutput("table")

)

server <- function(input, output) {

    raw_data <- data.frame(date = 2000:2021,
                     value = sample(100:500, 22),
                     icon = as.character(icon("arrow-up")))

  data <- raw_data %>%
    group_by(icon) %>%
    # Create the sparkline
    summarise("value" = sparkline::spk_chr(c(value),
                                xvalues = date,
                                tooltipFormat = '{{x}}: {{y}}'))

  output$table <- DT::renderDataTable({

    cb <- htmlwidgets::JS('function(){debugger;HTMLWidgets.staticRender();}')

    DT::datatable(data = data,
              escape = FALSE,
              options = list(drawCallback = cb))
  })

}

shinyApp(ui, server)

标签： rshinydatatablesdtsparklines

解决方案

默认情况下，shiny::icon函数：

  1. 生成图标对应的HTML代码；

  2. 生成一个包含font-awesome图标库的脚本标签。

当你这样做时as.character(icon(......，你只会得到 HTML 代码。font-awesome库未加载，这就是图标不显示的原因。

获取图标的最简单方法是使用glyphicon图标库，该库包含在引导程序中，因此无需加载（因为引导程序已在 Shiny 应用程序中加载）：

as.character(icon("arrow-up", lib = "glyphicon"))

如果你真的想要一个字体很棒的图标，有两种可能性：

  • 包含带有标签的font-awesome库；link

  • 或icon在您的应用程序的其他地方使用该功能，而不使用（如果您不想看到此图标，as.character可以使用 CSS 属性将其隐藏），如下所示。display:none

# add inside ui
tags$span(icon("tag"), style = "display: none;")

推荐阅读