Question

我在if(driver.findElements(By.className("gLFyf")).count > 1){ //more than one lement found }中有一个数据帧输出。我的问题是，链接列很长，我想用“链接”列在文本列（在这种情况下为“模型”）中创建超链接。在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中这样做时，我没有结果。有什么办法吗？预先感谢。

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
```

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

1 个答案: