Nothing
update_css <- function(html_file, tags) {
location_css <- max(grep("</style>", html_file, ignore.case = TRUE))
# # split file
html_preamble <- html_file[1:(location_css - 1)]
html_main <- html_file[location_css:length(html_file)]
## adding custom CSS
updated_html <- c(html_preamble, tags, html_main)
updated_html
}
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.