Блог

Я последовал совету Се Ихуэя по дословному отображению фрагмента кода в выходных данных R Markdown документа. Хотя результат выглядит нормально, я замечаю, что форматирование и интерактивность в интерфейсе RStudio меняются, то есть фрагменты кода после блока с четырьмя обратными ссылками больше не отображаются с помощью таких кнопок, как «Выполнить текущий фрагмент» в правом верхнем углу. R Markdown вставлено ниже.

Как я могу продолжать использовать трюк с четырьмя обратными нажатиями (или использовать другой трюк с тем же эффектом), сохраняя интерактивность интерфейса?

 ---
title: "Diamond sizes"
date: '2016-08-25'
output:
  pdf_document: default
  word_document: default
  html_document: default
---

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

To show a verbatim R code chunk following Xie Yihui's trick ([link](https://yihui.org/en/2017/11/knitr-verbatim-code-chunk/)):

````
`r ''````{r}
library(gapminder)

gapminder %>% ggplot(aes(year, lifeExp, group = country))  
  geom_line(alpha = 1/3)
```
````

```{r}
library(gapminder)

gapminder %>% ggplot(aes(year, lifeExp, group = country))  
  geom_line(alpha = 1/3)
```
  

Скриншот RStudio, где 1-й фрагмент кода отображается как ожидалось, но 2-й не поставляется с кнопками выполнения / настройки:

Вам нужно добавить последнюю тройную обратную ссылку в конце. Я вижу, однако, что он добавляет 3 дополнительных отметки к отображаемому документу, но это то, что я сделал, чтобы вы, по крайней мере, получили другую отметку фрагмента

обновленный код 8/21/2021

 ---
title: "Untitled"
author: "Daniel"
date: "8/21/2021"
output: html_document
---
```{r setup, include = FALSE}
knitr::opts_chunk$set(echo = TRUE)
library(ggplot2)
library(dplyr)
```

To show a verbatim R code chunk following Xie Yihui's trick     ([link](https://yihui.org/en/2017/11/knitr-verbatim-code-chunk/)):

````
`r ''````{r}
library(gapminder)

gapminder %>% ggplot(aes(year, lifeExp, group = country))  
  geom_line(alpha = 1/3)
```
````


```{r}
library(gapminder)

gapminder %>% ggplot(aes(year, lifeExp, group = country))  
  geom_line(alpha = 1/3)
```