Question

是否需要进一步阐述的问题是这个。 1.写入一个rmd文件 2. Rmd编织为html。 3. HTML保存为其中的代码。我需要Rstudio读取Html文件，识别其中的代码并运行它。有办法吗？

Answer 1

假设：

---
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 <- rbind.data.frame(mtcars, mtcars)

library(tidyverse) # rly bad place to put this but it's just a demo

just6 <- filter(xdf, cyl == 6)
```

```{r}
ggplot(mtcars, aes(wt, mpg)) + geom_point()
```

```{r}
count(just6, gear)
```

和一个名为“ forso.Rmd”的文件，该文件与“ forso.html”相关：

library(rvest)

pg <- read_html("forso.html")

html_nodes(pg, "pre.r") %>% 
  html_text() %>% 
  styler::style_text() %>%
  write_lines("my-recovered-r-code.R") %>% 
  cat(sep="\n")
## summary(cars)
## xdf <- rbind.data.frame(mtcars, mtcars)
## 
## library(tidyverse) # rly bad place to put this but it's just a demo
## just6 <- filter(xdf, cyl == 6)
## ggplot(mtcars, aes(wt, mpg)) + geom_point()
## count(just6, gear)

上面的“ ##”只是输出的人工产物。

注意，您将无法获取include=FALSE或echo=FALSE代码（如上所示）。

还请注意，styler的使用是100％可选的。

Rstudio是否可以运行markdown生成的编织html文件中嵌入的代码？

1 个答案: