1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
|
#' Save a widget to an HTML file
#'
#' Save a rendered widget to an HTML file (e.g. for sharing with others).
#'
#' @param widget Widget to save
#' @param file File to save HTML into
#' @param selfcontained Whether to save the HTML as a single self-contained file
#' (with external resources base64 encoded) or a file with external resources
#' placed in an adjacent directory.
#' @param libdir Directory to copy HTML dependencies into (defaults to
#' filename_files).
#' @param background Text string giving the html background color of the widget.
#' Defaults to white.
#' @param title Text to use as the title of the generated page.
#' @param knitrOptions A list of \pkg{knitr} chunk options.
#' @export
saveWidget <- function(widget, file, selfcontained = TRUE, libdir = NULL,
background = "white", title = class(widget)[[1]],
knitrOptions = list()) {
# Transform #RRGGBB/#RRGGBBAA colors to rgba(r,g,b,a) form, because the
# pound sign interferes with pandoc processing
if (grepl("^#", background, perl = TRUE)) {
bgcol <- grDevices::col2rgb(background, alpha = TRUE)
background <- sprintf("rgba(%d,%d,%d,%f)", bgcol[1,1], bgcol[2,1], bgcol[3,1], bgcol[4,1]/255)
}
# convert to HTML tags
html <- toHTML(widget, standalone = TRUE, knitrOptions = knitrOptions)
# form a path for dependenent files
if (is.null(libdir)){
libdir <- paste(tools::file_path_sans_ext(basename(file)), "_files",
sep = "")
}
# make it self-contained if requested
if (selfcontained) {
# write the html to a md file (pandoc 2.0 complains if you don't have a title)
write_md_for_pandoc(
html, file = file, libdir = libdir, background = background, title = title
)
pandoc_self_contained_html(file, file)
unlink(libdir, recursive = TRUE)
} else {
# no pandoc needed if not selfcontained
html <- tagList(tags$head(tags$title(title)), html)
htmltools::save_html(html, file = file, libdir = libdir, background = background)
}
invisible(NULL)
}
|
