Nothing
style_attr <- function(nodes, attr) {
style <- xml2::xml_attr(nodes, "style")
ifelse(
grepl(sprintf("%s: [^;]*;", attr), style),
gsub(sprintf(".*%s: ([^;]*);.*", attr), "\\1", style),
NA_character_
)
}
dash_array <- function(...) {
x <- xmlSVG(mini_plot(1:3, ..., type = "l"))
dash <- style_attr(xml2::xml_find_first(x, "//polyline"), "stroke-dasharray")
as.numeric(strsplit(dash, ",")[[1]])
}
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.