Nothing
#' Generate html help from functions Rd help files
#'
#' @param pkg Package name
#' @param links_level integer, 0: inside the given package, 1: with base and
#' recommended packages, 2: other packages specified by .libPaths()
#' @param topic Optional, selecting specific topics with their
#' names vector (functions names)
#' @param out_dir Optional, where to store html functions help files
#' @param overwrite Optional, logical TRUE for overwriting hmtl files (default),
#' FALSE otherwise
#'
#' @return An invisible character vector of file paths
#'
#' @keywords internal
#'
#' @noRd
#'
#' @examples
#' \dontrun{
#' static_help("SticsRFiles")
#' static_help(pkg = "SticsRFiles", out_dir = "/path/to/out/dir")
#' }
static_help <- function(pkg,
links_level = 0,
topic = NULL,
out_dir,
overwrite = TRUE) {
if (!dir.exists(out_dir)) dir.create(out_dir)
pkg_dir <- find.package(pkg)
links <- tools::findHTMLlinks(pkgDir = pkg_dir, level = links_level)
pkg_rd_db <-
eval(parse(text = "tools:::fetchRdDB(file.path(pkg_dir, 'help', pkg))"))
force(links)
topics <- names(pkg_rd_db)
if (!base::is.null(topic)) {
topic_idx <- topics %in% topic
topics <- topics[topic_idx]
}
files_path <- file.path(out_dir, paste(topics, "html", sep = "."))
for (f in files_path) {
if (file.exists(f) && !overwrite) next
p <- gsub(pattern = "\\.html$", x = basename(f), replacement = "")
tools::Rd2HTML(pkg_rd_db[[p]], f,
package = pkg, Links = links, no_links = is.null(links)
)
}
return(invisible(files_path))
}
get_from_help <- function(html_file,
tag1 = "Description",
tag2 = NULL,
header_level = "h4") {
l <- readLines(html_file)
l1 <- grep(pattern = tag1, x = l)
if (is.null(tag2)) {
l2 <- length(l) - 2
} else {
l2 <- grep(pattern = tag2, x = l) - 2
}
l <- gsub("h3", header_level, l)
return(l[l1:l2])
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.