如何在 Rmarkdown 内联代码中加下划线？

Question

我正在尝试基于闪亮的应用程序创建报告，我想强调报告的一些文本。

这是一个简单的例子来说明我的问题：

---
title: "Untitled"
output:
  pdf_document: default
  html_document: default
date: '2022-07-18'
---

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

## R Markdown


```{r}
toPrint <- NULL

toSAve <- list(c("banana", "yellow"), c("apple", "green"))

  for(i in 1:length(toSAve)){
        toPrint <- paste(toPrint, paste0(i, ".", toSAve\[\[i\]\]\[1\],"\\linebreak"), toSAve\[\[i\]\]\[2\], "\\linebreak", "\\linebreak")
  }
```

\raggedright
`r toPrint`

在这份报告中，我想强调水果的名称？香蕉和苹果应该加下划线。有没有办法做到这一点 ？还是将所有内容都包含在内联代码中的事实使它变得不可能？

Answer 1

带下划线的文本实际上没有任何语法，但 R Markdown 将使用类.ul 渲染跨度为下划线：

[this is underlined]{.ul}

因此，在您的示例中，我们将编写以下内容来强调结果：

toPrint <- NULL

toSAve <- list(c("banana", "yellow"), c("apple", "green"))

for(i in 1:length(toSAve)){
  toPrint <- paste(
    toPrint,
    paste0(i, ". ", "[", toSAve[[i]][1], "]{.ul}", "\
",
           toSAve[[i]][2], "

")
  )
}

还要注意使用"\ "（反斜杠后跟换行符）来标记换行符，因为这适用于 PDF 和 HTML 输出。