如何在R Markdown中突出显示内联R代码？

Question

此问题与consistent code html inline and in chunks with knitr类似。我想在R Markdown文档中突出显示内联R代码而不是.Rhtml文档，例如，在通过 rmarkdown 编译`r "plot(cars, main = 'A scatterplot.')"`之后，应突出显示plot等标记。默认情况下，R代码块是语法突出显示的，但无法突出显示内联R代码。

Answer 1

以下是使用高级包（devtools::install_github('yihui/highr')）的development version的解决方案。基本上，您只需定义自定义LaTeX命令以突出显示标记。 highr:::cmd_pandoc_latex是Pandoc用于进行语法突出显示的LaTeX命令的数据框。

head(highr:::cmd_pandoc_latex)
##                   cmd1 cmd2
## COMMENT  \\CommentTok{    }
## FUNCTION  \\NormalTok{    }
## IF        \\NormalTok{    }
## ELSE      \\NormalTok{    }
## WHILE     \\NormalTok{    }
## FOR       \\NormalTok{    }

然后你可以重新定义 knitr 的inline钩子：

---
output:
  pdf_document:
    keep_tex: yes
---

```{r include=FALSE}
local({
  hi_pandoc = function(code) {
    if (knitr:::pandoc_to() != 'latex') return(code)
    if (packageVersion('highr') < '0.6.1') stop('highr >= 0.6.1 is required')
    res = highr::hi_latex(code, markup = highr:::cmd_pandoc_latex)
    sprintf('\\texttt{%s}', res)
  }
  hook_inline = knitr::knit_hooks$get('inline')
  knitr::knit_hooks$set(inline = function(x) {
    if (is.character(x) && inherits(x, 'AsIs')) hi_pandoc(x) else hook_inline(x)
  })
})
```

Test inline R code: `r I("plot(cars, main = 'A scatterplot.')")`.
Normal inline code `r pi`.

A code block:

```r
plot(cars, main = 'A scatterplot.')
1 + 2 # a comment
```

我使用I()作为方便的标记来告诉字符串是从普通字符串突出显示的语法。这只是一个随意的选择。 PDF输出：

但这不是一个完美的解决方案。在某些情况下，您需要调整它。例如，大多数特殊的LaTeX角色都没有转义，例如~。您可能需要按hi_pandoc()处理gsub()返回的LaTeX代码。

就个人而言，我发现内联输出中的多种颜色让人分心，所以我不会突出显示语法，但这完全是个人品味。

Answer 2

现在一天：

Here is some `plot(cars, main = 'A scatterplot.')`{.R} inline R code

好吧，我不特别了解 R 及其使用方式，但是对于大多数语言（pandoc使用 skylighting pkg来做到这一点） ，您可以使用上述语法进行内联代码块。