如何在R Markdown或有光泽的DT中显示列内的图像？

Question

DT

我有图片网址。我尝试在rmarkdown或闪亮的应用程序中插入图像。我更喜欢--- title: "Untitled" runtime: shiny output: html_document --- df <- data.frame(image = "http://www.ufotm.com/data/attachment/forum/201203/11/110705gf50r55yqcka5ffz.jpg", title = "here is a title") DT::renderDataTable(df, escape = FALSE, rownames = FALSE, extensions = 'Buttons', options = list( dom = 'lBfrtip', buttons = c('copy', 'csv', 'excel', 'pdf', 'print'), columnDefs = list(list(targets = 1, data = "img", render = JS( 'function ( url, type, full) {', 'return '<img height="75%" width="75%" src="'+full[7]+'"/>';', '}' ) )) ) ) 库，因为我可以下载excel文件。我怎么能这样做？

PS：我想提供excel或pdf文件供我的用户下载。

我尝试使用DataTables Options，找到related question。我尝试了以下代码并显示错误。

{{1}}

Answer 1

您可以使用html代码并使用escape = FALSE，如下所示：

---
title: "Untitled"
runtime: shiny
output: html_document
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
```

```{r}
df <- data.frame(image = c('<img src="http://www.ufotm.com/data/attachment/forum/201203/11/110705gf50r55yqcka5ffz.jpg" height="52"></img>' ), title = "here is a title")
DT::renderDataTable(df, escape = FALSE)
```

你会得到这样的东西：