希望@Yihui 能够比我在这里提出的解决方案更优雅地回答你的问题。 :)
我之前在这里做了一个黑客攻击在 R Markdown 文件中包含 HTML 文件吗? https://stackoverflow.com/questions/36524238/include-html-files-in-r-markdown-file/36525111#36525111。该方法也应该适合您的要求
bookstruct.Rmd 文件:
---
title: "BookTitle"
output: html_document
---
My introduction goes here
<<insertHTML:[chapters/chapter2.Rmd]
some practice questions
<<insertHTML:[chapters/chapter3.Rmd]
Chapters/chapter2.Rmd 文件:
## Chapter 2
This is my chapter 2.
Chapters/chapter3.Rmd 文件:
## Chapter 3
This is my chapter 3.
在 R 控制台中,运行以下命令:
library(stringi)
subRender <- function(mdfile, flist) {
#replace <<insertHTML:flist with actual html code
#but without beginning white space
rmdlines <- readLines(mdfile)
toSubcode <- paste0("<<insertHTML:[",flist,"]")
locations <- sapply(toSubcode, function(xs) which(stri_detect_fixed(rmdlines, xs)))
subfiles <- lapply(flist, function(f) stri_trim(readLines(f)))
strlens <- sapply(subfiles,length)
#render html doc
newRmdfile <- tempfile("temp", getwd(), ".Rmd")
#insert flist at specified locations
#idea from @Marek in [2]
alllines <- c(rmdlines[-locations], unlist(subfiles))
ind <- c( (1:length(rmdlines))[-locations],
unlist(lapply(1:length(locations), function(n) locations[n] + seq(0, 1, len=strlens[n])/1.1 )) )
sortedlines <- alllines[order(ind)]
#render html
write(sortedlines, newRmdfile)
rmarkdown::render(newRmdfile, "html_document")
shell(gsub(".Rmd",".html",basename(newRmdfile),fixed=T))
} #end subRender
subRender(mdfile="bookstruct.Rmd",
flist=list("chapters/chapter2.Rmd", "chapters/chapter3.Rmd"))
[2] 如何向向量中插入元素? https://stackoverflow.com/questions/1493969/how-to-insert-elements-into-a-vector