Это сработало для меня:
Rmd_bind <-
function(dir = ".",
book_header = readLines(textConnection("---\ntitle: 'Title'\n---")))
{
old <- setwd(dir)
if(length(grep("book.Rmd", list.files())) > 0){
warning("book.Rmd already exists")
}
write(book_header, file = "book.Rmd", )
cfiles <- list.files(pattern = "*.Rmd", )
ttext <- NULL
for(i in 1:length(cfiles)){
text <- readLines(cfiles[i])
hspan <- grep("---", text)
text <- text[-c(hspan[1]:hspan[2])]
write(text, sep = "\n", file = "book.Rmd", append = T)
}
render("book.Rmd", output_format = "pdf_document")
setwd(old)
}
Представьте, что есть лучшее решение и было бы неплохо иметь что-то подобное в пакетах rmarkdown или knitr.
Похоже, что ModelCheck
- единственный класс, в котором вы не указали доступ для получения и установки ({ get; set; }
). Я предполагаю здесь, но может ли это быть проблемой?