r - 四开可折叠文本

Question

我正在尝试向我的四开本网站添加一个可折叠的摘要框。似乎 code 存在此功能我希望在我的出版物后面添加一个按钮，如果单击该按钮将展开摘要。还有别的东西可以这样称呼吗？我的部分问题是我不知道搜索我的挖掘的正确短语。

这是一个小演示.qmd:

---
title: "Research"
---

### Publications

------------------------------------------------------------------------

#### 2022

Authors. Year. ["Title".](https://stackoverflow.com/) *Journal* <br>
Authors. Year. ["Title".](https://stackoverflow.com/) *Journal* <br>

#### 2023

### Work In Progress
---

Answer 1

Quarto 用于 HTML 文件的 Web 框架 Bootstrap 将此称为 Collapse 。 quarto-dev repo中有一个github讨论。我调整了那里提供的示例以提供您想要的功能。

---
title: "Research"
---

### Publications

------------------------------------------------------------------------

#### 2022

Authors. Year. ["Title".](https://stackoverflow.com/) *Journal* 
<a data-bs-toggle="collapse" data-bs-target="#collapseExample" aria-expanded="false" aria-controls="collapseExample">
  Show Abstract
</a> <br>
<div class="collapse" id="collapseExample">
  <div class="card card-body">
    Some placeholder content for the collapse component. This panel is hidden by default but revealed when the user activates the relevant trigger.
  </div>
</div>

Authors. Year. ["Title".](https://stackoverflow.com/) *Journal* <br>

您可以将其包装在一个函数中，该函数创建具有折叠摘要的单个条目。这样您就不必将 HTML 直接插入 qmd 文件中。

---
title: "Research"
---

### Publications

---

#### 2022

```{r}
#| results: asis

library(tidyverse)
library(glue)

df <- tibble(authors = words[1:3], year = 2012:2014, title = words[4:6], abstract = words[7:9])

add_lit_entry <- 
  function(data) {
    glue('<span>{data$authors}.  {data$year}. {data$title}.</span>
    <a data-bs-toggle="collapse" data-bs-target="#collapse{data$title}" aria-expanded="false" aria-controls="collapseExample">
  Show Abstract
</a> 
<div class="collapse" id="collapse{data$title}">
  <div class="card card-body">
    {data$abstract}
  </div>
</div><br>') |> print()
  }

df |> 
  split(1:nrow(df)) |> 
  walk(add_lit_entry)
```