Вывод кода с использованием того же шрифта, что и у шрифта по умолчанию для текста в Rmarkdown - PullRequest
Новая
       7

Вывод кода с использованием того же шрифта, что и у шрифта по умолчанию для текста в Rmarkdown

0 голосов
/ 27 мая 2018

Вот репрезекс: 

---
date : 2018-May-27
output:
    pdf_document:
        latex_engine: xelatex
monofont: "Computer Modern"
title: "Testing Rmarkdown"
---

```{r,comment = NA}

Gender <- gl(2,1000,labels = c("Men","Women"))
SmokerM <- sample(c("Y","N"),1000,replace = T , prob = c(.3,.7))
SmokerW <- sample(c("Y","N"),1000,replace = T , prob = c(.5,.5))
Smoker <- c(SmokerM,SmokerW)

mydata  <- data.frame(Gender,Smoker)
table(mydata$Gender,mydata$Smoker)
```
This is some running text(in the Computer Modern font).

Мне нужен только ОДИН шрифт в документе, т.е.шрифт по умолчанию для текста.Чтобы сделать это, я добавил строку monofont: «Computer Modern» (этим я пытаюсь сказать программному обеспечению, что нужно создать вывод кода с тем же шрифтом, что и текст).Я получаю следующую ошибку при попытке создать PDF-файл из приведенного выше файла Rmarkdown.У меня есть система Ubuntu.Как я могу это исправить ?

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
! fontspec error: "font-not-found"
! 
! The font "Computer Modern" cannot be found.
! 
! See the fontspec documentation for further information.
! 
! For immediate help type H <return>.
!...............................................

Это дополнительный запрос к исходному запросу, опубликованному здесь: [Оригинальный запрос] Шрифты для документа Rmarkdown

1 Ответ

0 голосов
/ 27 мая 2018

На самом деле это не Computer Modern, а его близкая латиница Modern, которая используется по умолчанию.Таким образом, вы можете попробовать: 

---
date : 2018-May-26
output:
    pdf_document:
        latex_engine: xelatex
mainfont: Latin Modern Roman
monofont: Latin Modern Roman
title: "Testing Rmarkdown"
---

```{r,comment = NA}

Gender <- gl(2,1000,labels = c("Men","Women"))
SmokerM <- sample(c("Y","N"),1000,replace = T , prob = c(.3,.7))
SmokerW <- sample(c("Y","N"),1000,replace = T , prob = c(.5,.5))
Smoker <- c(SmokerM,SmokerW)

mydata  <- data.frame(Gender,Smoker)
table(mydata$Gender,mydata$Smoker)
knitr::kable(table(mydata$Gender,mydata$Smoker))
```

This is a text in the body of the document.What font is this ? What is
font for the output of table ? How can we change these 2 fonts ? What 
other categories of items are there in an Rmarkdown which have different
fonts ?

Поскольку у вас есть система Ubuntu, вы можете использовать fc-list, чтобы просмотреть все установленные в вашей системе шрифты, доступные для XeLaTeX.

В качестве альтернативы, если вы не хотите использовать XeLaTeX, вы можете использовать 

output:
    pdf_document
header-includes:
    - \renewcommand*{\ttdefault}{lmr}

в заголовке.

...