r - 如何在 R Markdown 输出中创建链接以获取带有文本超链接的 pdf 或 HTML

Question

我在 R Markdown 中有一个数据帧输出.我的问题是链接列很长，我想在文本列(在本例中为“模型”)与“链接”列建立超链接。在 R Markdown可以在纯文本中创建链接，但我不知道如何在数据输出中创建它。我想要一个 pdf或 HTML文件。

library (dplyr)
library (data.table)

data <- select(mtcars[1:4,], cyl, gear)
data <- setDT(data, keep.rownames = TRUE)
colnames(data) <-c("model","cyl","gear")
data$link <- paste('http://example.com/',data$model, sep = "")

data
            model cyl gear                              link
1:      Mazda RX4   6    4      http://example.com/Mazda RX4
2:  Mazda RX4 Wag   6    4  http://example.com/Mazda RX4 Wag
3:     Datsun 710   4    4     http://example.com/Datsun 710
4: Hornet 4 Drive   6    3 http://example.com/Hornet 4 Drive

我想获取带有超链接的模型列:

model                                      cyl    gear                             
[Mazda RX4](http://example.com/Mazda)        6       4      
[Mazda RX4 Wag](http://example.com/Mazda)    6       4  
[Datsun 710](http://example.com/Datsun)      4       4     
[Hornet 4 Drive](http://example.com/Hornet)  6       3 

但是当我在 R- Markdown 中这样做时我没有结果。有什么办法吗？
提前致谢。

Answer 1

您必须确定您的格式，但您可以使用 R Markdown 打印 results='asis'在块选项中:

---
output:
  pdf_document: default
  html_document: default
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = FALSE)
library (dplyr)
library (data.table)

data <- select(mtcars[1:4,], cyl, gear)
data <- setDT(data, keep.rownames = TRUE)
colnames(data) <-c("model","cyl","gear")
data$link <- paste('http://example.com/',data$model, sep = "")
data$markdown_output <- paste0("[", data$model, "](",data$link, ")")
```

## R Markdown Output

```{r output, results='asis'}
data$markdown_output
```