Làm thế nào để cú pháp làm nổi bật mã R nội tuyến trong R Markdown?

Question

Câu hỏi này tương tự như consistent code html inline and in chunks with knitr. Thay vì tài liệu .Rhtml, tôi muốn làm nổi bật mã R nội tuyến trong các tài liệu R Markdown, ví dụ: sau `r "plot(cars, main = 'A scatterplot.')"` được biên dịch qua rmarkdown, các mã thông báo như plot sẽ được đánh dấu. Theo mặc định, các đoạn mã R được đánh dấu cú pháp, nhưng không có cách nào để làm nổi bật mã R nội tuyến.

Answer 1

Dưới đây là một giải pháp sử dụng development version của gói highr (devtools::install_github('yihui/highr')). Về cơ bản bạn chỉ cần xác định các lệnh LaTeX tùy chỉnh của bạn để làm nổi bật các mã thông báo. highr:::cmd_pandoc_latex là một khung dữ liệu của lệnh LaTeX mà Pandoc sử dụng để làm nổi bật cú pháp.

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

Sau đó, bạn có thể xác định lại móc inline của knitr:

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

tôi đã sử dụng I() như một dấu hiệu thuận tiện để nói với chuỗi ký tự là các câu lệnh của bố từ sợi nhân vật bình thường. Nó chỉ là một sự lựa chọn tùy ý. đầu ra PDF:

Đây không phải là một giải pháp hoàn hảo, mặc dù. Bạn sẽ cần phải tinh chỉnh nó trong một số trường hợp. Ví dụ: hầu hết các ký tự LaTeX đặc biệt không được thoát, chẳng hạn như ~. Bạn có thể cần xử lý mã LaTeX được trả về bởi hi_pandoc() bởi gsub().

Cá nhân tôi tìm thấy nhiều màu trong đầu ra nội dòng mất tập trung, vì vậy tôi sẽ không làm nổi bật cú pháp, nhưng đây là hoàn toàn là sở thích cá nhân.