Nothing
#' @export
print.svg <- function(x, ..., view = interactive()) {
dots <- list(...)
x <- x %>% build_svg()
html <-
paste(
"<?xml version=\"1.0\" encoding=\"UTF-8\"?>",
x,
collapse = "\n"
)
c(
"<!DOCTYPE html>",
"<html>",
"<head>",
"<meta charset=\"utf-8\">",
"</head>",
"<body>",
html,
"</body>",
"</html>"
) %>%
paste(collapse = "\n") %>%
htmltools::HTML() %>%
htmltools::html_print()
message(x)
}
#' @export
as.character.svg <- function(x, ...) {
dots <- list(...)
x %>% build_svg()
}
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.