r - 在 Rmarkdown 中将内部文档链接设置为表值

Question

我想将数据表中列的每个值设置为指向不同幻灯片的内部链接。以下是我尝试过的，但无法选择链接。

---
title: "Example"
output: slidy_presentation
  
---

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


```{r message=FALSE, warning=FALSE, include=FALSE}
library(DT)
library(tidyverse)
```

## Table
```{r carstab, echo = FALSE}

datatable(mtcars %>% rownames_to_column(var = "plot") %>% mutate(plot = ("[plot](#/plot)")),escape = TRUE)

```


## plot 

```{r plot, echo = TRUE}
plot(mtcars)
```

Answer 1

mutate(plot = ("[plot](#/plot)"))不起作用，因为 Markdown 代码 [plot](#/plot)不会被翻译成 HTML。这是一个character .

你想要类似 <a href = '#(slide_number)'> This is a link </a> 的东西在你的 DT 细胞中。

您可以使用 paste0() 生成此类链接:

datatable(
  mtcars %>% 
    mutate(
      plot = 3,
      plot = paste0("<a href = '#(", plot, ")'>link</a>"),
    ), escape = FALSE
)

plot DT 中的列现在包含指向幻灯片 3 的有效链接(相应地修改 plot 中 mutate() 的第一个实例以链接到不同的幻灯片)。