#' what have we done to html_document?
#'
#' Less simple, but we enable a floating table-of-contents,
#' \code{code_folding}, syntax highlighting, insert some custom css,
#' then pass the rest of our arguments to
#' \code{rmarkdown::\link[rmarkdown]{html_document}}
#'
#' @param toc TRUE to include a table of contents in the output
#' @param toc_float TRUE to float the table of contents to the left of the main document content
#' @param code_folding Enable document readers to toggle the
#' display of R code chunks. We change the default to \code{"hide"}.
#' See \code{rmarkdown::\link[rmarkdown]{html_document}}
#' @param highlight Syntax highlighting style
#' @param css One or more css files to include in addition
#' to this format's css.
#' @param ... other arguments passed to
#' \code{rmarkdown::\link[rmarkdown]{html_document}}
#'
#' @seealso \url{http://rmarkdown.rstudio.com/developer_custom_formats.html}
#'
#' @return R Markdown output format to pass to
#' \code{rmarkdown::\link[rmarkdown]{render}}
#'
#' @examples
#' \dontrun{
#' rmarkdown::render("foo.Rmd", html_doc_4())
#' }
#' @export
#
html_doc_4 <- function(toc = TRUE, toc_float = TRUE,
code_folding = c("show", "hide", "none"),
highlight = "textmate",
css = NULL, ...){
code_folding <- match.arg(code_folding)
name_fmt <- "user2016docdemo"
version_fmt <- "0.0.0.9000"
# # append supplied css to our css
# css <- c(
# css,
# file.path(
# "site_libs",
# paste(name_fmt, version_fmt, sep = "-"),
# c("user2016docdemo.css", "comic_sans.css")
# )
# )
dep <- function(){
htmltools::htmlDependency(
name = name_fmt,
version = version_fmt,
src = system.file("site_libs", package = "user2016docdemo"),
stylesheet = file.path("css", c("user2016docdemo.css", "comic_sans.css"))
)
}
rmarkdown::html_document(
toc = toc,
toc_float = toc_float,
code_folding = code_folding,
highlight = highlight,
extra_dependencies = list(dep()),
all_files = FALSE,
...
)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.