假设:
---
output: html_document
---
```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
```
Blah Blah
```{r cars}
summary(cars)
```
```{r pressure, echo=FALSE}
plot(pressure)
```
```{r}
xdf
library(tidyverse) # rly bad place to put this but it's just a demo
just6
```
```{r}
ggplot(mtcars, aes(wt, mpg)) + geom_point()
```
```{r}
count(just6, gear)
```
和一个名为“ forso.Rmd”的文件,该文件与“ forso.html”相关:
library(rvest)
pg
html_nodes(pg, "pre.r") %>%
html_text() %>%
styler::style_text() %>%
write_lines("my-recovered-r-code.R") %>%
cat(sep="\n")
## summary(cars)
## xdf
##
## library(tidyverse) # rly bad place to put this but it's just a demo
## just6
## ggplot(mtcars, aes(wt, mpg)) + geom_point()
## count(just6, gear)
上面的“ ##”只是输出的人工产物。
注意,您将无法获取include=FALSE或echo=FALSE代码(如上所示)。
还请注意,styler的使用是100%可选的。