R/highlight_code_image.R
In quantargo/qlearn: Package to deploy courses for the Quantargo platform
Defines functions
highlight_code_image
#' @importFrom highr hi_html
#' @importFrom webshot webshot
highlight_code_image <- function(code, file = "webshot.png") {
tf_html <- tempfile(fileext = ".html")
on.exit(file.remove(tf_html))
html_code <- paste(hi_html(code), collapse = "\n")
head <- "<head>
<style>
body {
background-color: black;
color: rgba(255, 255, 255, .9);
padding: 2em;
font-family: 'DM Mono', 'Source Code Pro', 'Fira Mono', 'Ubuntu Mono', 'Monaco', 'Menlo', 'Consolas', monospace;
line-height: 1.6;
white-space: pre;
margin: 0;
}
.kwd, .kwa {
color: #569BD7;
}
.num {
color: #B4CEA6;
}
.str {
color: #CD9176;
}
</style>
</head>"
html <- sprintf("<html>%s<body style=\"background-color:black;color: white;\">%s</body></html>", head, html_code)
writeLines(html, tf_html)
webshot::webshot(tf_html, file = file, vwidth = 400, vheight = 400)
}
quantargo/qlearn documentation built on Jan. 25, 2022, 12:35 a.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Defines functions highlight_code_image
#' @importFrom highr hi_html
#' @importFrom webshot webshot
highlight_code_image <- function(code, file = "webshot.png") {
tf_html <- tempfile(fileext = ".html")
on.exit(file.remove(tf_html))
html_code <- paste(hi_html(code), collapse = "\n")
head <- "<head>
<style>
body {
background-color: black;
color: rgba(255, 255, 255, .9);
padding: 2em;
font-family: 'DM Mono', 'Source Code Pro', 'Fira Mono', 'Ubuntu Mono', 'Monaco', 'Menlo', 'Consolas', monospace;
line-height: 1.6;
white-space: pre;
margin: 0;
}
.kwd, .kwa {
color: #569BD7;
}
.num {
color: #B4CEA6;
}
.str {
color: #CD9176;
}
</style>
</head>"
html <- sprintf("<html>%s<body style=\"background-color:black;color: white;\">%s</body></html>", head, html_code)
writeLines(html, tf_html)
webshot::webshot(tf_html, file = file, vwidth = 400, vheight = 400)
}
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.