R 以闪亮的颜色呈现具有图像的可缩放表格

我创建了一个R Markdown HTML报告，其中我使用了Kable表。我正试图将此报告转换为一个闪亮的仪表板，我注意到报告中的Kable表没有以闪亮的方式显示图像

以下是表格在Rmd中的显示方式：

以下是表格在屏幕中的显示方式：

这是生成表格的代码：所拾取的图像（状态图像和重要性图像）根据其

pct\u变化

和

显著性值

的值而变化

dt_2 <- cbind(initial_medians_table(), medians_significance_df) %>%
      mutate(notes = "",
             status_image = paste("![](www/", ifelse(pct_change <= 0, "down_arrow_green", "up_arrow_red"), ".png)", sep = ""),
             significance_image = paste("![](www/", ifelse(significant_greater_less_pvalue < input$pvalue_threshold, "significant", "not_significant"), ".png)", sep = ""),
             medians_analysis = paste(medians_analysis, " mins (", round(medians_analysis/(24*60), 2), " days)", sep = ""),
             medians_baseline = paste(medians_baseline, " mins (", round(medians_baseline/(24*60), 2), "days)", sep = "")) %>%
      select(V1, V2, medians_analysis, medians_baseline, change, status_image, significance_image, notes)

服务器.R

output$tableset <- renderUI({

    out <- kable(medians_and_significant_test(), align = rep('c', ncol(medians_and_significant_test())), escape = FALSE,
                 col.names = c("High-Level Process",
                                "Deeper-Level Process",
                                "Analysis (Median)",
                                "Baseline (Median)",
                                "% Change",
                                "Performance",
                                "Statistically Significant?",
                                "Notes")) %>%
      kable_styling(c("striped", "condensed", "hover", "responsive"), full_width = F) %>%
      kableExtra::group_rows(index = c("Level 0" = 1, "Level 1" = 3, "Level 2" = 6)) %>%
      footnote(symbol = c(paste("Significance test used:", input$sig_test_selected),
                          paste("p-value threshold used is", input$pvalue_threshold, "to test for significant"))
      )

    HTML(out)

  })

输出$tableset%
kableExtra:：组_行（索引=c（“0级”=1，“1级”=3，“2级”=6））%>%
脚注（symbol=c（粘贴（“使用的显著性检验：”，输入$sig_test_selected），
粘贴（“使用p值阈值”，输入$pvalue_阈值，“测试显著性”））
)
HTML（输出）
})

我在单元格中渲染图像时使用了错误的“字符串”或调用？如果有人知道如何从手机上的www-app文件夹中渲染图像，我也很乐意使用DT

---

提前感谢

您的代码不可复制。这篇文章有用吗？链接很有用，谢谢Phil。问题是调用图像的字符串格式不正确：从标记语法：“！[]（image_file_name.png）“Need:”我还从引用图像所在文件夹的字符串中删除了“www/”。太好了。你应该回答自己的问题，以防将来有人遇到类似问题并发现这个问题。

output$tableset <- renderUI({

    out <- kable(medians_and_significant_test(), align = rep('c', ncol(medians_and_significant_test())), escape = FALSE,
                 col.names = c("High-Level Process",
                                "Deeper-Level Process",
                                "Analysis (Median)",
                                "Baseline (Median)",
                                "% Change",
                                "Performance",
                                "Statistically Significant?",
                                "Notes")) %>%
      kable_styling(c("striped", "condensed", "hover", "responsive"), full_width = F) %>%
      kableExtra::group_rows(index = c("Level 0" = 1, "Level 1" = 3, "Level 2" = 6)) %>%
      footnote(symbol = c(paste("Significance test used:", input$sig_test_selected),
                          paste("p-value threshold used is", input$pvalue_threshold, "to test for significant"))
      )

    HTML(out)

  })