在 Hadley 和他的团队能够开发 staticdocs 及其文档之前,我在一个非常粗糙的包中找到了更多的工作:
#' Change read.me File
#'
#' Alter the read.me file with a preset.
#'
#' @param path Path to the index.html file.
#' @param readme Path to the readme file.
#' @param file The path/file name to output.
readme_statdoc <- function(path, readme, file = NULL) {
if (length(path) > 1) {
x <- path
} else {
x <- suppressWarnings(readLines(path))
}
y <- suppressWarnings(readLines(readme))
start <- which(grepl("<h1></h1>", x))
end <- which(grepl("<h2>Help topics</h2>", x))
x <- c(x[1:start], "", y, "", x[end:length(x)])
if (!is.null(file)) {
cat(paste(x, collapse="\n"), file = file)
}
return(x)
}
基本上,您创建一个外部文档以插入自述部分。我在 qdap 中使用了它,您可以通过这个脚本看到我是如何使用它来创建staticdoc 网站的。