Внутренние ссылки и URL-адреса не работают после встраивания шрифтов в PDF с R-уценкой - PullRequest
0 голосов
/ 18 февраля 2020

Я использую extrafont::embed_fonts для встраивания шрифтов в простой документ с разметкой R. Это прекрасно работает.

Однако после встраивания шрифтов, содержащихся в документе, любые ссылки (внутренние ссылки, URL-адреса, цитаты) не работать больше.

Ниже предоставляется MWE с примером вывода (с и без встраивания). Большое спасибо за помощь!

MWE:

---
title: "Embedding Fonts in PDF"
output: pdf_document
---

```{r echo=FALSE, message=FALSE, warning=FALSE, out.width = '30%'}
library(ggplot2)
library(extrafont)
# font_import()   # run
loadfonts()       # loadfonts
```

### Plot with standard font {#standard}
```{r echo=FALSE, message=FALSE, warning=FALSE, out.width = '30%'}
ggplot(mtcars, aes(x=wt, y=mpg)) + geom_point() +     
  ggtitle("Fuel Efficiency of 32 Cars") +
  xlab("Weight (x1000 lb)") + ylab("Miles per Gallon")
```

### Load fonts and set ggplot theme globally
```{r message=FALSE, warning=FALSE, include=FALSE}
# install.packages("extrafont") # see https://github.com/wch/extrafont/
# library(extrafont)
# font_import()   # run
loadfonts()       # loadfonts

# globally set ggplot2 theme and font ("Lato Light")
theme_set(theme_minimal(base_size=12, base_family="Lato Light"))
```

### Plot with new standard font (= Lato) {#lato}
```{r echo=FALSE, message=FALSE, warning=FALSE, out.width = '30%'}
ggplot(mtcars, aes(x=wt, y=mpg)) + geom_point() +     
  ggtitle("Fuel Efficiency of 32 Cars") +
  xlab("Weight (x1000 lb)") + ylab("Miles per Gallon")
```

### Plot with Impact font {#impact}
```{r echo=FALSE, message=FALSE, warning=FALSE, out.width = '30%'}
ggplot(mtcars, aes(x=wt, y=mpg)) + geom_point() +
  ggtitle("Fuel Efficiency of 32 Cars") +
  xlab("Weight (x1000 lb)") + ylab("Miles per Gallon") +
  theme(text=element_text(size=16, family="Impact"))
```

### Run to embed fonts
```{r eval=FALSE, include=TRUE}
embed_fonts("TestRmd.pdf", outfile="TestRmd_embedded.pdf")
```

### Links test

Links test 1 (internal reference): [Headline standard](#standard)

Links test 2 (URL): [RStudio has become a Public Benefit Corporation](https://blog.rstudio.com/2020/01/29/rstudio-pbc)

Sidenote: Встраивание шрифтов кажется необходимым для «стандартных» шрифтов, таких как impact

MWE: вывод со встроенными шрифтами

Fonts not embedded

MWE: вывод со встроенными шрифтами

Fonts embedded cropped

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...